UNCLASSIFIED 


AD  NUMBER 


AD865352 


NEW  LIMITATION  CHANGE 
TO 

Approved  for  public  release,  distribution 
unlimited 


FROM 

Distribution  authorized  to  U.S.  Gov't, 
agencies  and  their  contractors;  Critical 
Technology;  04  DEC  1969.  Other  requests 
shall  be  referred  to  Air  Force  Cambridge 
Research  Labs.,  Bedford,  MA. 


AUTHORITY 


AFCRL  ltr,  22  Dec  1971 


THIS  PAGE  IS  UNCLASSIFIED 


AD  865352 


AFCRL- 70-0020 


FR  69-14-1312 


135 


THEORETICAL  INVESTIGATION  OF  ACOUSTIC  SURFACE  WAVES 
ON  PIEZOELECTRIC  CRYSTALS 


by 

William  R.  Jones 
James  J.  Campbell 
Sonja  L.  Veilleux 


Hughes  Aircraft  Company 
Ground  Systems  Group 
P.O.  Box  3310 
Fullerton,  California  92634 


Contract  No.  F 19628- 69-C -0132 
Project  No.  5635 
Task  No.  563503 
Work  Unit  No.  56350301 

FINAL  REPORT 

Period  Covered:  1  December  1968  through  30  November  1969 


4  December  1969 


Contract  Monitor:  Andrew  J.  Slobodnik,  Jr.,  1/Lt,  USAF 
Microwave  Physics  Laboratory 


This  document  is  subject  to  special  export  controls  and  each  transmittal  to 
foreign  governments  or  foreign  nationals  may  be  made  only  with  prior 
approval  of  Andrew  J.  Slobodnik,  AFCRL  (CROP),  L.  G.  Hanscom  Field, 
Bedford,  Massachusetts  01730. 


Prepared  for 


AIR  FORCE  CAMBRIDGE  RESEARCH  LABORATORIES 
OFFICE  OF  AEROSPACE  RESEARCH 
UNITED  STATES  AIR  FORCE 
BEDFORD,  MASSACHUSETTS  01730 


AT* 


Roproduced  by  the 

CLEARINGHOUSE 

. , :  j 

for  Federal  Scientific  &  Technical 

k  \ 

Information  Springfield  Va.  22151 

U\\ 
j  b 

Ji-L 


PCD  ^5  1ST0 


THEORETICAL  INVESTIGATION  OF  ACOUSTIC  SURFACE  WAVES 
ON  PIEZOELECTRIC  CRYSTALS 


by  y 

William  R.  Jones 
James  J.  Campbell 
Sonja  L.  Veilleux 


Hughes  Aircraft  Company 
Ground  Systems  Group 
P.O.Box  3310 
Fullerton,  California  29634 


Contract  No.  F19628-69-C-0132 
Project  No.  5635 
Task  No.  563503 
Work  Unit  No.  56350301 

FINAL  REPORT 

Period  Covered:  1  December  1968  through  30  November  1969 

4  December  1969 


Contract  Monitor:  Andrew  J.  Slobodnik,  Jr.,  1/Lt,  USAF 
Microwave  Physics  Laboratory 


This  document  is  subject  to  special  export  controls  and  each  transmittal  to 
foreign  governments  or  foreign  nationals  may  be  made  only  with  prior 
approval  of  Andrew  J.  Slobodnik,  AFCRL  (CROP),  L.  G.  Hanscom  Field, 
Bedford,  Massachusetts  01730. 

Prepared  for 


AIR  FORCE  CAMBRIDGE  RESEARCH  LABORATORIES 
OFFICE  OF  AEROSPACE  RESEARCH 
UNITED  STATES  AIR  FORCE 
BEDFORD,  MASSACHUSETTS  01730 


ABSTRACT 


This  report  describes  the  analyses  of  several  piezoelectric  and  pure 
elastic  surface  wave  propagation  problems  and  computer  programs  which 
implement  their  numerical  study.  In  addition,  the  formal  analysis  of  an 
electric  current  line  source  located  above  a  piezoelectric  crystal  half  space 
is  presented  in  some  detail. 
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I.  INTRODUCTION 

This  report  describes  the  analyses  of  several  piezoelectric  and  pure 
elastic  surface  wave  propagation  problems  and  computer  programs  which 
implement  their  numerical  study.  In  addition,  the  formal  analysis  of  an 
electric  current  line  source  located  above  a  piezoelectric  crystal  half  space 
is  presented  in  some  detail. 

The  physical  configurations  of  the  propagation  problems  considered  in 
the  sequel  are  shown  in  Figure  1  and  are  enumerated  below: 

(1)  Surface  wave  propagation  on  a  piezoelectric  half  space  in  the 
presence  of  an  infinitesimal  electric  or  "magnetic"  conductor 
located  at  an  arbitrary  but  fixed  distance  h  above  the  crystal 
surface . 

(2)  Surface  wave  propagation  on  a  piezoelectric  or  pure  elastic 
half  space  contiguous  to  a  perfect  isotropic  elastic  conductor 
(e.g.  gold  or  aluminum)  of  arbitrary  thickness  h. 

(3)  Surface  wave  propagation  on  a  piezoelectric  or  pure  elastic 
half  space  contiguous  to  a  perfect  fluid  half  space . 

(4)  Surface  wave  propagation  on  a  piezoelectric  or  pure  elastic 
half  space  contiguous  to  an  isotropic  elastic  layer  of  arbitrary 
thickness  h. 

The  following  section  contains  the  details  of  the  analyses  of  the  propagation 
problems  described  above  including  special  degenerate  cases  which  are 
encountered.  These  cases  correspond  to  conditions  of  surface  wave 
propagation  wherein  one  or  more  components  of  displacement  vanish  or  the 
electric  and  mechanical  fields  become  decoupled  (in  the  general  piezoelectric 
case  the  surface  wave  contains  all  components  of  displacement  and  is  coupled 
via  the  piezoelectric  constants  to  the  electric  field).  In  practice  degenerate 
cases  have  been  found  to  occur  when  the  sagital  plane  lies  either  in  a  plane  of 
symmetry  of  the  crystal  under  consideration,  in  the  basal  plane  of  crystals  of 
class  0  mm,  or  in  the  principal  plane(s)  of  cubic  crystals . 


electric  or 


vacuum 


piezoelectric  crystal  half- space 


perfectly  conducting 
isotropic  elastic  medium 


piezoelectric  or  pure  elastic  crystal  half-space 


ideal  fluid 
half- space 


piezoelectric  or  pure  elastic  crystal  half- space 


isotropic  elastic 
medium  with 
isotropic  dielectric 
property 

piezoelectric  or  pure  elastic  crystal  half- space 


vacuum 


Figure  1 
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The  third  section  presents  an  outline  of  the  analysis  pertaining  to 
the  excitation  of  surface  and  bulk  wave  by  an  electric  current  line  source 
located  above  a  piezoelectric  half  space.  This  problem  was  originally  under¬ 
taken  as  an  approach  to  the  study  of  interdigital  electric  transducers  but  was 
ultimately  abandoned  due  to  lack  of  funds  and  the  fact  that  inordinant  amounts 
of  computation  would  be  required  to  extract  useful  data  regarding  the  efficiency 
of  excitation  of  surface  waves . 

Finally,  Section  II  provides  detailed  descriptions  of  the  computer 
programs  written  to  implement  the  numerical  analyses  of  the  surface  wavs 
propagation  problems  described  in  Section  U.  The  material  presented  in  this 
section  provides  the  reader  with  sufficient  information  for  the  use  of  the 
computer  programs  and  the  comprehension  of  the  programming  methods 
employed  therein.  Source  deck  listings  for  the  various  programs  are  also 
provided. 
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II .  PROPAGATION  OF  SURFACE  WAVES  ON  PIEZOELECTRIC  SUBSTRATES 


I .  Surface  Waves  on  Piezoelectric  Crystals  in  the  Presence  of  Infinites! 


Thin  Electric  and  Magnetic  Conductors 


In  this  section  the  fc"  nal  analysis  is  presented  for  the  propagation: 
characteristics  of  surface  waves  on  a  general  piezoelectric  crystal  surface 
in  the  presence  of  perfect  electric  and  "magnetic’'  conductors.  Tile: geometries 
under  consideration  are  depicted  in  Figure  2 . 

A  rectangular  coordinate  system  is  chosen  with  the  x^  axis  normal  to  the 
crystal  surface  and  the  Xj  axis  in  the  direction  of  propagation.  Arbitrary 
orientations  of  the  crystal  surface  with  respect  to  the  crystal  axes  are 
considered.  This  is  accomplished  by  means  of  a  coordinate  rotation  through: 
the  Euler  angles  from  the  crystal  axes  to  the  desired  x1,  x2,  x^  coordinate 
system.  The  matrix  defining  such  a  rotation  is  given  by 

(  cos  a  cos  y  -  sin  a  cos  3  siny  sin  a  cos  y  +  cos  a  cos  3  siny  sin  3  stay: 
-cos  a  siny  -  sin  a  cos  3  cosy  -sina  siny  +  cos  a  cos  3  cosy  sin  3  cosy 
sin  a  sin  3  -  cos  a  sin  3  cos  3 

where  a,  3,  andy  are  the  Euler  Angles.  Since  the  x^XgiXg  coordinate  system 
is  relative  to  the  crystal  surface  and  direction  of  propagation  the  form  of  the 
differential  equations  for  the  mechanical  displacements  and  electric  potentials 
in  this  coordinate  system  is  independent  of  the  surface  under  consideration. 
Only  the  values  of  the  coefficients  change  with  the  surface  orientation  relative 
to  the  crystal  axes.  This  is  also  true  of  the  boundary  conditions.  Different 
cuts  are  thus  distinguished  only  through  the  transformed  tensor  quantities 
involved  in  coefficients  of  the  differential  operators . 

In  terms  of  the  Euler  transformation  matrix  V,  the  tensor  quantities  of  . 
interest;  viz.  the  elastic  constants  (G^),  the  piezoelectric  constants  (e^, 
and  the  dielectric  constants  (e  )  are  transformed  as  follows: 


C ; 

Wjk-i, 


r.Li  V*  W^sn, 


V  V  V  e 
vir  is  kt  rst 


Perfect  electric  conductor 


Piezoelectric  Crystal  Substrate 


(a) 


(b) 


Figure  2 
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c'  =  r1  v  v  e 

*j  r,  s=l  ir  Js  rs 


(3) 


where  the  primed  quantities  refer  to  a  rotated  coordinate  system  and  the 
unprimed  correspond  to  the  coincidence  of  the  coordinate  system  and 

the  crystal  axes,  i.e.,when  V  is  the  identity  matrix.  The  elastic  and  piezo¬ 
electric  constants  can  be  reduced  to  2  index  symbols  in  the  usual  fashion,  viz . 
C  /...  -  C  and  e'  -•  e.  where  p  or  q  -  1, 2, 3, 4,  5, 6  are  equivalent  to 

IJK.'L  lj*v  ip 

11, 22, 33, 23,  or  32, 13  or  31,  and  12  or  21  respectively. 


The  differential  equations  for  the  components  IL,  i  =  1,2, 3,  of  the 
mechanical  displacement  and  electric  potential  cp  are  given  by 


Ci W  Uk,  lx +  ekij  ^  ki  =  p  J=  1.2,3^ 

)  X3> 

eiUUk,li  ‘  eikrp,ki  =  0  J 


(4) 


v\  =  0  -h  ^  x3  s  0  . 

In  the  above  equations,  indices  preceded  by  a  comma  denote  differentiation  with 
respect  to  space  coordinates .  The  summation  convention  for  repeated  indices 
is  employed  as  is  the  dot  notation  for  differentiation  with  respect  to  time . 

As  indicated  above,  the  surface  waves  under  consideration  are  assumed  to 
be  traveling  in  the  Xj  direction  along  a  surface  whose  normal  is  in  the  x^ 
direction.  The  displacements  and  potentials  are  considered  to  be  independent 
of  the  *2  coordinate .  Consequently,  traveling  wave  solutions  of  the  form 


-OWX3/Vs  jllft-Xj/Vg) 

U.  =  3^  e  e 


and 


cp=  3. 


-awx3/vs  i^t-Xj/Vg) 


are  sought.  When  these  surface  waveforms  (as  identified  by  an  exponential 
decay  into  the  crystal)  are  substituted  into  the  differential  equations  for  Xg  >  0 
a  linear  homogeneous  system  of  four  equations  in  the  unknowns  3j,  $2>  P4 


at 


\ 
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results .  The  determinant  of  the  coefficients  of  the  unknowns  in  these 
equations  must  be  zero  in  order  that  a  non-trivial  solution  exist,  that  is 


det 


C55a  +2Clsja 
-  Cn  +  pv* 


C45a  +^Ci4  +  C56^a 
16 


"45' 
-  C 


C^gOt  +  ^44a  ^C^^jct. 

2 


-  C 


16 


-C66+Pvs 


C35a  +  *-C13  +  C55^a  C34a  +  ^-C36 +C45-':>a 

'  C15  '  C56 

e35a  +*-e15  +  e31^a  e34a  +  ^e14  +  e36‘';’a 

'  ell  '  e16 


C35a  +^C13+C55^a 

e35a  +  ^e15  +  e31^a 

-C15 

•ell 

C34a  +^C36}'C45^a 

®34a  +  [e14  +  e36^a 

-C56 

*  e16 

2 

C33a  +2C35^a 

e33a  +  ^e13+e35^a 

-C55  +  Pvs2 

‘  e15 

e33a  +  ^e13  +  e35^a 

*  e33a  '  2€13 

'  e15 

+  C11 
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Evaluation  of  the  above  determinant  results  in  an  eighth  order  polynomial  in 
a  of  the  form 

AgOt®  +  JA/f  Aga6+  jAgd^+  A^a^ +  jAga^+  A2^ +  jA^a  +  Aq  =  0  ,  (7) 

with  the  coefficients  An>  u  =  0, 1, . .  .,8,  purely  real.  Since  the  fields  must  be 
bounded,  or  go  to  zero  as  Xg  -  »,  only  the  roots  with  non- negative  real  parts 
are  allowed.  If  the  unknown  in  equation  (7)  is  considered  to  be  ja  instead  of  a 
then  the  polynomial  in  ja  has  purely  real  coefficients.  Thus,  either  the  roots 
ja  are  real  or  occur  in  conjugate  pairs,  e.g. 

jaA  =  a  +jb 

jc^  =  a  -  jb 

whence 

ax  =  b  -  ja 

Oj  =  -b  -  ja  . 

Therefore,  the  roots  a  are  either  pure  imaginary  or  occur  in  pairs  with 
positive  and  negative  real  parts. 

In  the  range  of  velocities  where  generally  surface  waves  can  exist  (i.e. 
velocities  below  the  lowest  bulk  wave  velocity  in  the  direction  of  propagation 
under  consideration)  the  roots  occur  such  that  four  with  positive  real  parts 
can  be  selected.  However,  if  for  a  given  velocity  four  such  roots  are  not 
found  the  possibility  of  the  existence  of  a  degenerate*  surface  wave  remains  and 
must  be  considered.  These  special  waves  are  discussed  in  detail  in  the  section 
on  degenerate  cases.  Upon  obtaining  the  admissable  values  of  a,  corresponding 
values  of  3.  (to  within  a  constant  factor)  can  be  found  for  each  a. 

In  addition  to  the  equations  for  Xg  >  0,  the  differential  equation  (5)  for 
-h  s  x3  5  0  must  be  satisfied  together  with  appropriate  boundary  conditions  at 
Xg  =  0  and  Xg  =  -h.  Assuming  that  the  crystal  surface  is  stress  free 
(Tgj  =  0  at  Xg  =  0),  the  mechanical  boundary  conditions  at  each  point  of  the 
surface  of  the  crystal  are 


*The  term  degenerate  is  used  to  signify  that  certain  components  of  displacement 
and/or  the  electric  potential  vanish  identically. 
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T3j 


x3=0 


=  C3jktUk,<c  +  ek3jCp,k 


=  0 


x3=0 


j  =  l,2,C 


(8) 


For  the  electric  wall  case  (Figure  2a)  the  boundary  conditions  on  the  electric 
potential  are  the  continuity  of  cp  at  =  0  and,  without  loss  of  generality, 
<p(-h)  =  0.  Also  the  normal  component  of  electrical  displacement  must  be 
continuous  across  the  surface  of  the  crystal . 


The  total  fields  (mechanical  displacement  and  potential)  may  be  expressed 
as  a  linear  combination  of  the  fields  associated  with  the  admissible  values  of  a 
for  x3  >  0,  namely, 


Bw  w-vy 

B« 


i 


1,2,3  , 


(9) 


(10) 


In  the  region  -h  s  x^  ^  0  the  potential  is  a  solution  of  Laplace's  equation 
(5) .  A  solution  satisfying  the  continuity  condition  at  x^  =  0  and  vanishing  at 
x3  =  -h  is 


B<*> 


sinh  (7“  (x3+h>) 

s 


jW^-Xj/Vg) 


(11) 


-h  s  x3  *  0  . 

Finally,  the  normal  component  of  D(viz.  D3)  must  be  continuous  across  the 
surface  x,  =  0.  Inside  the  crystal  the  electrical  displacement  is  given  by 

Di  =  eiki  Uk  l '  CikCp  k’^  =  lf  2’3^  whiie  in  ^  "n  ^  x3  5  °,  D  =  -e0^cp. 

Substituting  the  waveforms  (9),  (10)  in  equation  (8)  and  expressing  the 

continuity  of  D,  at  x,  =  0  in  terms  of  equations  (9),  (10),  and  (11)  yields  the 
*  J  m 

following  set  of  homogeneous  equations  for  the  ampliiudes  B'  ',  namely, 


11 


£ 


4^  tici5+a^  C55^  +  4^C56+a^C45^  +  4^  ^C55+a^  ^C35^ 

(12) 


+  fl(f  Cje15  +  aW  e35] 


=  0 


L 


4  ^  ^C14  +  C45^  +  4  ^C46  +  ^C44^+  4  ^C45+a^  ^C34  J 

1  (13) 

+  [je14  +  aWe34] 


B<">  =  0 


CjC13  +  a<*>  C35]  +  i%C3f+  a<'>C34]  +  6«  tjCjj+a^] 


+  4‘t)  ^eiQ  +  a' 


(*> 


13 


'33' 


B^>=0 


(14) 


4 

r 


4^  [je31  +  aWe35]  +  4^>C-ic'36  +  a(i)e34]  +  4^  [Je35  +  a(^>e33 3 


Jei3  +  a(i>  e33  +  e0  coth  (f)jJ  =  0  • 


(15) 


The  transcendental  equation  obtained  by  setting  the  determinant  of  the  matrix 
(L)  of  coefficients  of  this  system  equal  to  zero  determines  the  surface  wave 
velocities . 

In  the  limiting  case  (h  -  0)  the  region  -h  s  ^  0  disappears  and  the 
boundary  conditions  on  the  electric  potential  and  normal  component  of 
displacement  in  the  crystal  are  replaced  by  cp(0)  =  0.  In  this  case  equation  (15) 
above  reduces  to 


1 

& 


S»B«  =  0  . 
4 


(16) 


In  addition  to  the  electric  wall  problem,  the  magnetic  wall  case 
(Figure  2b)  also  has  been  considered.  The  only  change  in  the  formulation  of 
this  problem  is  the  boundary  condition  at  x^  =  -h.  In  this  case  the  solution  for 
the  potential  in  the  region  -h  £  x^  ^  0  assumes  the  form 


12 


j>  = 


B^> 

4 


ju)(t-Xl/vs) 


(17) 


This  function  satisfies  the  condition  that  the  normal  component  of  electrical 
displacement  (Dg)  vanish  at  the  magnetic  wall  Xg  =  -h. 

Equation  (15),  the  continuity  of  Dg  at  Xg  =  0,  is  modified  for  the  magnetic 

wall  case  by  replacing  coth(oli/vs)  with  tanh  (uh/vc) .  Otherwise  the  equations 

(12)-(15)  remain  unchanged.  The  limiting  case  h  -*  0  requires  no  special  change 

as  it  did  in  the  electric  wall  case  since  the  continuity  condition  on  Dg  at  Xg  =  0 

now  simply  becomes  D»  =  0  and  DJ  ~  tanh(uh/v  )  (outside  the  crystal), 

“1x0=0  s 

which  goes  to  zero  as  h  -‘0.  Thus  equation  (15)  with  the  tanh(uh/v  )  term  needs 

s 

no  modification  for  the  limiting  case . 

Once  a  surface  wave  velocity  has  been  found  the  partial  field  amplitudes 

B^,  j=l,  2, 3, 4  may  be  calculated  to  within  a  constant  factor .  Consequently,  B^ 

is  chosen  as  unity  (except  for  certain  degenerate  cases  described  later)  and  B^, 
(2)  (3) 

B'  ,  B'  ’  are  found  from  equations  (12)~(14).  These  amplitudes  are  used  to 
evaluate  the  displacement  components  (eq.  (9)),  electric  potential  (eq.  (10)),  the 
components  of  stress,  strain,  electric  displacement,  electric  field,  and  the  time 
average  power  flow  as  functions  of  uuxg .  The  explicit  forms  of  the  components  of 
the  aforementioned  physical  quantities  are: 
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Power  Flow 


The  flow  of  complex  mechanical  power  at  any  point  in  the  piezoelectric 
medium  is  given  in  component  form  as  follows: 


1  3 

l  t  •> 


P  =-i  V  T  TJ 

i  2  ^ 


The  real  part  of  this  expression  represents  the  time  average  power  flow  at  a 
point. 

Since  all  fields  decay  exponentially  in  the  x^  direction  there  is  no  net  flow 
of  real  power  in  this  direction.  Thus,  only  P^  and  P 2  need  be  considered. 

The  components  of  the  total  time-average  power  flow  are  as  follows: 
p*  =  J  ReCP1]dx3  =  Re[Pt1] 
r00 

P2  =  /  Re[P2ldx3  =  ReCP2t] 

•SQ 

where  Re  [P,  ,]  means  the  real  part  of  P,  9 .  The  final  expressions  for  the 
complex  mechanical  power  flow  Pj  and  P2  are 
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The  flow  of  electromagnetic  power  (Poynting  Vector)  in  a  piezoelectric 
medium  requires  a  knowledge  of  the  magnetic  field  as  well  as  the  electric  field. 

It  is  a  common  belief  (although  an  incorrect  one)  that  the  complex  Poynting  vector 
E  x  H*  reduces  to  cpD*  when  the  electric  field  is  approximately  derivable  from  a 
scalar  potential  function  cp.  This  mistaken  notion  is  based  upon  the  following 
derivation  for  energy  flow  out  of  a  closed  surface. 

Maxwell's  equations  are  as  follows  for  fields  derivable  approximately 
from  a  scalar  potential  function  (i.e.  where  E  =  -7cp)  in  a  non-conducting 
medium . 


vxE.-jSsro 

D 


V  •  B  =  0 


7  •  D  =  0 


Now  the  flow  of  power  out  of  any  closed  surface  with  a  surface  normal 
element  ds  is 


=  4  JJ  (E  x  H*)  •  ds 


JJ  (E  x  H*)  •  ds  =JJ[  7  •  (E  x 


H*)  dv 


but 


where  the  second  integral  is  over  the  volume  enclosed  by  the  surface  S.  Using 


V  •  (E  xH*)  =  H*  •  VXE  -  E  •  7xH*=  -E  .  VxH* 
it  follows  that 


ijjf  V.(ExH*)dv=  4 


\\\s  •  7xH*dv  =  -|  jJf(Vcp  - 


D  *) 


Furthermore 


V-(cpD*)  =  Vcp  •  D*  +  c (fj  •  (D*)  =  Vcp  •  D* 
may  be  used  to  infer  that 


|  III'’  '  <B  * 
*  -5  II  ID*  ‘ 


H*)dv=  jjll  V  •  (cpD*)dv 


da 


Therefore 


HJJ<bx 


H*)  •  ds?i  Jj  t|0*  • 


da 


This  equation  states  that  the  surface  integral  over  a  closed  surface  of  E  x  H*  is 
equal  to  that  of  cpD*  or  alternately  that  V  •  (E  x  H*)  =  V  •  (cpD*),  consequently 
ExH*  =  cpD*  +  A  where  A  is  some  vector  whose  divergence  is  zero  (V  .  A  *  0) 

It  seems  a  natural  assumption  to  assume  that  A  =  0  and  that  E  x  H*  -  cpU*. 
However,  this  is  not  necessarily  so  as  an  illustrative  example  from  electro¬ 
magnetic  theory  shows . 

Consider  a  surface  wave  propagating  in  the  free  space  region 
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A  solution  of  the  following  form  will  exist. 


H  -j*  y 


r 5 — o~ ' 

-i/r-k; 

E  =  — Hz 
x  jcue 


(3 


E  =^-  H 

y  cue  z 


The  wave  impedance  of  this  wave  is 

Ex  +jVp2-^o  ’ 


z  = 


H 


cue 


Assume  an  impedance  sheet  with  surface  impedance  jX  .  Then  we  find 

s 


Vf>2-K! ' 


cue 


=  X 


deter  runing  the  value  of  3.  If  kQ  «  p  (low  frequency  limit)  then  we  have 
8  **■  cue  X 


and  the  field  quantities  assume  the  form 
H  =-  , 


E*s  J&H* 


and 


E  =  —  H 
y  cue  z 


This  is  the  quasi-static  case  (kQ  <<  8)  and  an  approximate  expression  for  the 
electric  field  is  derivable  from  a  scalar  potential.  Indeed,  the  scalar  potential 
may  be  taken  to  be 

■  Hz  ~  e~iBx  e~gy 

^  Wt  U)E 

with  the  result  E  =  -Vcp. 

For  this  approximation  the  x  component  of  the  Poynting  vector  (E  x  H*) 
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reduces  to  N  =  E  H*  =  3/oue  e  while 
x  y  z 

•  Hz  • 
cpD*  =  — e  E* 
x  a>e  x 


JL  e‘2py 

uue 


— »  • 

and  clearly  N  ^  cpD* . 

Summing  up,  the  electromagnetic  power  flow  (E  x  H*)  at  any  point 
requires  a  full  solution  of  Maxwell's  equations  and  cannot  be  obtained  from 
the  scalar  potential  method.  Only  the  total  power  flow  out  of  a  closed  surface 
can  be  obtained  from  the  scalar  potential  method  since 


cpD*  •  da 


where  S  is  closed.  A  more  thorough  investigation  into  the  electromagnetic 
power  flow  will  be  taken  up  during  the  transducer  study  part  of  the  study.  For 
now  it  can  be  said  that  the  electromagnetic  power  flow  is  expected  to  be  much 
smaller  than  the  mechanical  power  flow  based  on  computer  runs  where  cpD*  was 
used  as  an  order  of  magnitude  estimate  of  the  Poynting  vector . 


2.  Surface  Waves  on  Non-Piezoelectric  (Pure  Elastic)  Media 

Surface  wave  propagation  on  a  free  surface  of  a  non- piezoelectric  elastic 
medium  can  be  accounted  for  by  appropriate  modifications  of  the  foregoing 
analysis.  In  this  case  the  piezoelectric  constants  e.^  are  identically  zero  and 
the  electric  field  and  mechanical  displacements  are  decoupled.  Consequently, 
the  fourth  order  matrix  appearing  in  equation  (6)  reduces  to  the  third  order 
matrix  obtained  by  deleting  the  last  row  and  column.  Subject  to  this  modification 
equation  (7)  reduces  to  a  sixth  order  equation  in  a  which  in  general  will  have 
three  roots  with  positive  real  parts .  The  boundary  conditions  at  the  free  surface 
are  given  by  equation  (8)  with  the  coefficients  e^gj  =  0.  Inasmuch  as  there  is 
no  coupling  to  an  electric  field  the  additional  boundary  conditions  applicable 
thereto  are  unnecessary . 
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The  relative  amplitudes  of  the  component  of  displacement  3^,  k  =  1, 2, 3 
are  evaluated  for  each  a1  '  with  positive  real  part  in  a  manner  identical  to  that 
used  in  the  general  piezoelectric  case.  Upon  evaluation  of  these  quantities 
the  boundary  conditions  are  invoked  and  the  equations  (12-14)  result  with  the 
piezoelectric  constants  equal  to  zero  and  the  sums  only  over  the  indices 
1,  2,  and  3.  The  characteristic  equation  for  the  determination  of  surface  wave 
velocities  again  obtains  from  the  condition  that  the  determinant  of  the  matrix 
coefficients  associated  with  the  linear  system  (12-14)  vanishes. 


The  stresses,  strains,  power  flow,  etc .  may  be  calculated  as  before  by 

using  the  appropriate  evaluations  of  3^,  k  =  1, 2, 3,  B^,  k  -  1, 2, 3  and  setting 
i  (4)  k 


the  34's,  A' 
previously. 


and  e .  equal  to  zero  tn  the  equations  for  these  quantities  given 

-ip 


3.  Degenerate  Cases  -  Piezoelectric  Medium 

The  modes  of  surface  wave  propagation  described  as  degenerate  cases 
arise  when  the  four  coupled  partial  differential  equations  (4)  which  govern  the 
mechanical  components  Uj,  u2,  and  u3  and  the  electric  field  (via  a  scalar 
potential  cp)  reduce  to  two  independent  sets  of  coupled  equations,  assuming 
traveling  wave  motions  independent  of  the  coordinate  normal  to  the  sagital 
plane. 

With  the  coordinate  system  chosen  assuming  no  variation  in  the  x2 
direction,  the  equations  of  motion  (4)  for  the  displacement  components  and 
potential  may  be  written  in  the  operator  form  (assuming  eJIJJt  time  dependence) 


L11U1  +  L12U2  +  L13U3  +  L14CP 
L21U1  +  L22U2  +  L23U3  +  L24Cp 


L31U1  +  L32U2  +  L33U3  +  L34Cp 


0 

0 

0 


> 


L41U1  +  L42U2  +  L43U3  +  L44CP  =  0 


where  • 
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The  elastic  c.^,  piezoelectric  e„,  and  dielectric  constants  refer  to  the 
transformed  (from  the  crystal  coordinate  system)  quantities  and  are  represented 
in  terms  of  the  abbreviated  double  subscript  notation. 


If  the  elastic  and  piezoelectric  constants  are  such  that  the  operator  matrix 
CL..].  .  ,  0  ,  .  is  appropriately  sparse,  the  equations  (1)  decouple  and  the 

lj  Ip}—!,*,*},* 

possibility  of  degenerate  cases  is  encountered. 


For  example,  in  the  case  reported  by  Bleustein'  J  the  elastic  and 
piezoelectric  constants  are  such  that  L12  =  L14  =  *"23  =  *^34  =  0  and  the  equations 
of  motion  decouple  into  two  independent  systems;  one  system  governing  U2  and  cp 
and  the  other  characterizing  the  behaviors  of  Uj  and  u^ .  This  is  an  example  of  one 
of  the  two  general  degenerate  cases  which  has  been  found  to  exist  for  a  number 
of  crystals  on  particular  cuts  and  directions  of  propagation. 


A  second  degenerate  case  which  also  has  been  reported  and  which 

appears  with  some  regularity  is  manifest  by  the  conditions  -  ^23  =  L24  2 

In  this  case  the  equations  of  motion  decouple  into  a  coupled  system  of  partial 

differential  equations  for  the  displacement  components  Up  u^  and  the  potential 

cp,  and  a  single  partial  differential  equation  for  the  displacement  component 

This  particular  degenerate  case  has  been  studied  extensively  for  surface  wave 

(7) 

propagation  on  the  basal  plane  of  hexagonal  crystals'  '  and  it  has  been  shown  that 
a  surface  wave  solution  with  the  displacement  component  ^  alone  cannot  exist. 

It  should  be  noted  that  the  latter  observation  carries  over  to  the  general  case, 
independent  of  the  crystal  class,  surface  cut,  and  direction  of  propagation. 


There  are  other  degenerate  cases  that  can  be  considered.  For  example, 


L12  =  L13  “  L14  0 


or 


L31  L32  ~  L34 


=  0 


These  cases  were  considered  in  the  analysis  leading  to  the  present  study  but 
numerical  examples  of  these  cases  have  not  been  found. 

The  conditions  L4i  =  =  L^  £  0  lead  to  a  complete  decoupling  of  the 

electric  and  mechanical  fields  and  has  not  been  found  to  occur  for  surface  wave 
propagation  on  specific  surfaces  of  any  piezoelectric  crystal  considered  thus 
far. 


1 


!  i 
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The  occurrence  of  degenerate  cases  can  also  be  described  in  terms  of  the 
linear  equations  for  the  relative  amplitudes,  l  =  1, 2, 3, 4,  of  the  mechanical 
displacement  and  electric  potential.  The  determinant  of  the  coefficients  of  this 
system  of  equations  is  given  by  equation  (6),  wherein  the  elements  of  the 
determinant  correspond  to  evaluations  of  the  operators  L.^  with 


d  .  U)  . 

•5 —  =  -j  —  and 

ox  J  " 


1 


_5_ 

dx„ 


ax 

v 


For  the  sake  of  the  following  discussions  let  the  linear  system  of  equations 
for  the  determination  of  the  3's  be  denoted 


£ 


V-t=0 


i=  1,2, 3, 4 


(18) 


The  possible  combinations  of  the  elastic  and  piezoelectric  constants  which 
caused  the  equations  of  motion  to  decouple  lead  to  the  decoupling  of  the  linear 
equations  in  the  exact  same  fashion.  Inasmuch  as  the  linear  equations  (18)  are 
employed  in  the  numerical  analyses,  the  various  cases  of  decoupling  are  discussed 
again  in  more  detail  below . 

The  following  degenerate  cases  have  been  found  to  exist  and  are 
accounted  for  in  the  computer  program  which  implements  the  numerical 
analysis.  They  are  denoted  by  representing  the  matrix  A  =  (A^}^  2  3  4 

with  its  appropriate  zeros  displayed,  viz., 


Case  (1) 


Vll 

0 

A13 

A14 

0 

A22 

0 

0 

*13 

0 

A33 

A34 

l14 

0 

A34 

A44 

A11  0  A13  0 


Case  (2) 


A22  0 
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A13  0  A33  0 


A24  0 


44 


In  Case  (1)  we  note  that  ^  decouples  from  anc*  $4*  The  determinant  of 

A  is  zero  if  A ^  =  0  (as  a  function  of  a)  or  if  the  determinant 


A11 

A13 

A14 

Al  = 

A13 

A33 

A34 

i  A14 

A34 

A.. 

44 

=  0 
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The  condition  -  0  leads  to  a  quadratic  equation  in  a.  If  k^  =  0  the  system 
of  equations  yields  a  solution  3j  =  @3  =  3^  =  0  while  can  1*  chosen  as  an 
arbitrary  constant . 

If  Aj  =  0,  giving  a  sixth  order  equation  in  a,  the  system  of  equations 
requires  a  solution  =  0  while  either  3^,  33,  or  3^  may  be  chosen  arbitrarily 
and  the  remaining  two  P's  calculated  from  any  two  of  the  three  equations  not 
involving  A ^ . 

In  case  (2)  we  note  that  3j  and  3^  decouple  from  32  and  3^.  The 
determinant  of  A  goes  to  zero  if  the  determinant 


or  the  determinant 


Both  the  equations  A2  =  0  and  A^  =  0  lead  to  quartic  equations  in  a.  If  A2  0 
the  system  yields  the  solution  32  =  3^  =  0  while  3^  or  33  may  be  arbitrarily 
chosen  and  the  remaining  3  calculated  from  either  the  first  or  third  equation 
of  the  system.  If  A3  =  0  the  system  yields  the  solution  3j  =  33  =  0  while 
«  or  g .  may  be  arbitrarily  chosen  and  the  remaining  3  calculated  from  either 

mt  * 

the  second  or  fourth  equation  of  the  system. 

Let  the  coefficients  of  the  amplitudes  ^  (equations  (12)-(16))  be 
considered  elements  of  the  matrix  L  .  In  case  (1)  L  takes  the  form 


0 

CN* 

>4 

L13 

L14 

L21 

0 

0 

0 

0 

L32 

L33 

L34 

.0 

L42 

L43 

L44 

If  the  determinant 
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L12  L13  L14 

Ll=  L32  L33  L34 

L42  L43  L44  j 

(considered  as  a  function  of  the  velocity  vs)  then  the  following  solution  is 
found:  =  0  while  B^,  or  B^  can  be  chosen  arbitrarily  and  the 

remaining  B's  calculated  from  any  two  of  the  three  equations  not  involving 
L 22  •  This  situation  corresponds  to  a  wave  with  displacement  components  Up 
Ug  and  potential  c p  and  U2  is  identically  zero . 

If  L21  is  zero  we  would  be  led  to  a  solution  where  Up  Ug,  and  cp  are 
zero  while  only  U2  would  be  present  in  the  wave.  However,  it  can  be  shown 
that  L2j  can  not  be  equal  to  zero  and  therefore  such  a  mode  does  not  exist.* 

In  case  (2)  L  takes  the  form 


If  the  determinant 

V  L“  Ll2  =0 

L31  L32 

then  the  following  solution  is  found:  B^  =  B^  =  0  while  B^  or  B^  can  be 
arbitrarily  chosen  and  the  remaining  B  can  be  calculated  from  the  first  or  third 
equation  of  the  system  (equations  (12)  or  (14)).  This  situation  corresponds  to  a 
wave  with  displacement  components  U^  and  Ug  while  U^  and  cp  are  identically 
zero. 

If  the  determinant 


This  case  was  considered  in  detail  for  surface  wave  propagation  in  the  basal 
plane  of  hexagonal  piezoelectric  crystals  by  Tseng  and  WhiteC7). 
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then  the  following  solution  is  found:  =  0  while  B^  or  B^  can  be 

arbitrarily  chosen  and  the  remaining  B  can  be  calculated  from  the  second  or 
fourth  equation  of  the  system  (equations  (13)  or  (15)).  This  situation 
corresponds  to  a  wave  with  displacement  component  and  potential  cp  while 
Uj  and  Ug  are  identically  zero. 

It  should  be  noted  that  in  paragraph  1.1  it  was  stated  that  four  a's  with 
positive  real  parts  can  be  found  when  in  the  range  of  velocities  below  the  slowest 
buJc  wave  velocity  in  the  direction  of  propagation  being  considered.  However, 
in  the  degenerate  cases  surface  waves  may  exist  when  there  are  less  than  four 
such  a's  provided  the  appropriate  a's  have  positive  real  parts.  For  example, 
in  case  (1)  only  three  roots  of  must  have  positive  real  parts  for  the 
existence  of  a  surface  wave.  The  roots  of  =  0  are  not  required  to  assume 
any  particular  form.  That  is,  both  roots  corresponding  to  -  0  may 
be  purely  imaginary  but  if  three  of  the  six  roots  corresponding  to  A^  =  0  have 
positive  real  parts  a  surface  wave  may  still  exist.  Similarly,  for  case  (2) 
it  is  possible  to  have  a  solution  with  only  two  a's  with  positive  real  parts 
provided  that  both  of  the  a's  come  from  the  same  equation  (i.e.  both  come 
from  A2  =  0  or  both  from  A~  =  0) .  An  example  of  the  latter  situation  has  been 
reported  in  the  literature'  '  and  corresponds  to  a  wave  with  displacement 
component  U2  and  potential  cp.  It  may  be  noted  that  the  (necessarily) 
degenerate  waveforms  that  occur  with  higher  velocities  than  the  bulk  waves 
alluded  to  above  appear  to  be  the  non -attenuated  limits  of  leaky  or  pseudo-waves 
and  have  been  described  for  non- piezoelectric  crystals  by  Lim  and  Farnell.  ^ 

One  further  case  of  a  peculiar  nature  will  be  mentioned  here  although 
it  does  not  fit  into  the  category  of  degenerate  cases.  On  a  surface  of  a 
hexagonal  crystal,  solutions  of  the  algebraic  equations  for  the  decay  coefficients 

A 

a'  '  exist  which  cause  the  minors  of  the  last  row  and  column  of  A  to  vanish.  Since 
all  the  minors  of  the  elements  of  A  are  not  new  the  rank  of  the  determinant  is 
not  reduced  but  the  component  3^  is  forced  to  be  zero.  Thus  only  3^,  32,  and 
3^  exist  for  such  an  a.  The  total  wave  however  is  not  an  example  of  a 
degenerate  case  since  the  other  a's  are  needed  for  a  surface  wave  solution.  This 
behavior  is  a  manifestation  of  the  fact  that  one  of  the  general  bulk  wave 
solutions  is  decoupled  from  the  electric  field  for  all  directions  of  propagation 
in  a  piezoelectric  hexagonal  crystal. 
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4.  Degenerate  Cases  —  Non-piezoelectric  (Pure  Elastic)  Medium 

For  surface  wave  propagation  in  a  pure  elastic  medium  the  system  of 
equations  discussed  in  the  procediug  paragraph  takes  the  form 

3 

£  Vr°  U1-2-3  <“» 

where  the  A.^  are  the  same  as  in  the  piezoelectric  case  but  involve  only  the 
elastic  constants  (the  piezoelectric  constants  are  zero  and  the  dielectric 
constants  do  not  enter  the  problem) .  The  equation  for  a  is  now  sixth  order . 
Generally  three  roots  with  positive  real  parts  are  required  for  a  surface  wave 
solution. 

Only  one  degenerate  case  occurs  for  a  pure  elastic  medium .  In  this 
case  the  A  matrix  assumes  the  form 


( 


As  before  the  condition  =  0  leads  to  a  quadratic  equation  in  a  but 
this  case  is  of  no  interest  inasmuch  as  it  would  lead  to  a  solution  with  the 
only  component  of  displacement  and  this  is  impossible  for  the  same  reason  as 
in  the  piezoelectric  case  (viz.  cannot  equal  zero  for  the  form  of  the  decay 
coefficient  a  required  for  a  surface  wave  solution) .  If 

A11  A13  _  0 

A13  A33 

we  obtain  the  solution  ^  =  0»  Pg  ?  0,  and  either  3j  or  3^  can  be  chosen 
arbitrarily  with  the  other  3  being  calculated  from  one  of  the  two  remaining 
equations  of  the  system.  In  this  case  the  L  matrix  assumes  the  form 


0  Li2  l.; 


L32  L33 


and  the  boundary  conditions  can  be  satisfied  if 


12  13 

L32  L33 


=  0  . 


The  above  form  of  the  linear  system  requires  that  =  0  while  either  or 
B^  can  be  chosen  arbitrarily  and  the  remaining  amplitude  calculated  from  either 
of  the  equations 

L12b(2>+L13b(3>  =  ° 


L32b(2)+L33B<3>  =  °  ' 

This  solution  corresponds  to  a  wave  with  displacement  components  and  Ug 
while  Uj  is  identically  zero,  i.e.,  a  Rayleigh  wave. 


5.  Surface  Wave  Propagation  in  an  Isotropic  Elastic,  Perfectly  Conducting 
Inlm  on  a  Piezoelectric  Substrate 

An  additional  problem  that  has  been  considered  is  that  of  a  finite  thickness 
layer  of  isotropic  elastic  conductor  on  a  piezoelectric  substrate.  When  the 
displacement  component  waveforms 


Ui=eie 


-<xujx3/vs  jo^t-Xj/Vg) 


i  =  1, 2,3  , 


are  substituted  into  the  equations  of  morion  for  an  isotropic  elastic  medium, 
a  linear  system  of  equations  for  the  relative  amplitudes  3j,  ft,,  ftj,  of  the 
displacement  components  is  obtained.  The  determinant  of  the  system,  set 
equal  to  zero,  yields  the  equation  for  the  determination  of  Jie  exponents  a, 
namely 


pa -(2p+A)  +  Pvg 


O 


jaU+pJ 


2  2 
pa  -p+pvg 


=  0  (20) 


(2p+?*a2-p+Pv2 


where  \  |i  are  the  Lame  constants  of  the  medium.  The  polynomial  form  of 
(18)  is  of  order  six  and,  inasmuch  as  the  medium  is  of  finite  thickness,  the 
solution  corresponding  to  all  six  roots  is  needed  to  satisfy  the  boundary 
conditions . 


The  assumed  forms  of  the  solutions  in  the  piezoelectric  medium  with 
those  employed  in  Section  II.  1,  namely, 

where  \  p  are  the  Lame  constants  of  the  medium.  The  polynomial  form  of 

(18)  is  of  order  six  and  inasmuch  as  the  medium  is  of  finite  thickness,  the  solutions 

corresponding  to  all  six  roots  are  needed  to  satisfy  the  boundary  conditions. 

The  assumed  forms  of  the  solutions  in  the  piezoelectric  medium  are  identical 
with  those  employed  in  Section  II.  1,  namely. 


(4) 

mi 


uP .  f-  Aw  m  ;%  ms/vs  J-fc-w 
1  ‘  a  p* 


.  £  A«  M  e'V ^  e^-vv 


(21) 

,  i  =  1,2,3  , 

(22) 


In  the  elastic  conductor  the  total  displacements  assume  the  form 

i=l,2,3,  (23) 


6  /i.v  /..v  -a^untg/Vg  jw^-x^/Vg) 


UC  =  T  B<k>  P<k>  e 
1  Cl 


and  the  potential  function  is  identically  zero.  Thus  there  are  10  unknown 
amplitude  coefficients  A^,  B^,  1=  1,2, 3, 4,  k=  1,  ...,6  to  be  determined. 

The  boundary  conditions  applicable  in  this  problem  are  as  follows: 
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Continuity  of  displacement  at  x^=  0 

Uf(xp0)  =  UP(xr0) 

i  =  1,2,3 

Continuity  of  stress  components  at  x^  =  0 

T3j<Xl*°)  =  T3j<XP°> 

j  =  1,2,3 

Vanishing  of  stress  components  at  the 
free  surface  at  x^=  -h 

T3j(xp-h)  =  0 

j  =  1,2,3 

Vanishing  of  potential  at  x^  =  0 

VP(x1,0)=0 

Applying  these  ten  conditions  to  the  above  solutions  yields  a  system  of  ten 
homogeneous  algebraic  equations  in  the  ten  unknown  amplitude  coefficients 
A^,  B^.  From  this  point  the  solution  for  surface  wave  velocities  and  field 
distributions  proceeds  as  before  except  that  there  are  now  ten  equations  instead 
of  (4) .  The  explicit  form  of  the  determinant  of  the  system  stemming  from  the 
boundary  conditions  is  given  in  Appendix  I. 


4 
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6.  Surface  Wave  Propagation  at  the  Interface  between  a  Piezoelectric 

Substrate  and  a  Semi- Infinite  Fluid  Medium 

The  physical  problem  considered  in  this  section  is  that  of  a  surface  wave 
propagating  along  the  interface  between  a  piezoelectric  crystal  and  a  semi¬ 
infinite  fluid.  Again  a  rectangular  coordinate  system  is  chosen  with  the  x^  axis 
normal  to  the  crystal  surface  and  the  x^  axis  in  the  direction  of  propagation  as 
in  the  preceding  problems.  The  fields  in  the  crystal  and  fluid  media  are 
assumed  to  be  independent  of  the  X2  direction .  Arbitrary  orientations  of  the 
crystal  surface  with  respect  to  the  crystal  axes  are  handled  by  means  of  an 
Euler  Transformation  as  before  and  the  differential  equations  in  the  crystal 
medium  are  the  same . 


The  elastic  properties  of  the  fluid  medium  are  described  in  terms  of  a 
single  elastic  constant  A  (modulus  of  compression);  the  effect  of  viscosity  is 
ignored.  Consequently,  the  differential  equations  in  the  fluid  are 


Ul,ll+U3, 13  =  PfUl/A 


Ul,  13  +  U3,33=  Pfl,3/X 

v2cp  =  0 


,  x,  <  0  , 


(24) 


t 

i 

1 

x 


1 


i 


I 


l 


} 
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wherein  the  derivatives  with  respect  to  ^  are  taken  to  be  zero  in  keeping  with 
the  uniformity  of  the  field  in  this  direction  and  pf  is  the  density  of  the  fluid  medium. 

In  the  crystal  medium  (x3  >  0)  traveling  wave  solut.ons  of  the 

form 


,,  „  -acast3/vs 

Uj  =  6.  e  e 


i  =  1,2,3  , 


-a  «K./v  ^(t-VVs) 

9  =  34  e  e 


(25) 


are  sought  and  all  analytical  considerations  pertaining  to  the  crystal 
medium  are  identical  with  those  discussed  in  Sections  II.  1  and  II. 2. 

In  the  fluid  (x^  <  0)  the  particle  displacements  and  electric  potential 
are  decoupled  and  are  assumed  to  have  the  forms 


-CL.UK-/V  ju>(t-x,/v  ) 
ui  =  ,*ie  e 

-<rVvs  M'W 

U3  =  Y3  e  c 

u)X3/v  ju»(t-x1/v  ) 
cp  =  Ce  e 


(26) 


Substitution  of  these  displacement  and  potential  waveforms  into  the 
differential  equations  (24)  leads  to  the  following  equation  for  in  terms  of 

the  velocity  v  ,  namely 

s 


pfvs  '  X 


det 


V  jaf  A 

from  which  it  follows  that 


jafA 


*4 + pfvs/ 


1=0 


a„  =  ±  \ 


S'* 
A‘pfvs 


(27) 


(28) 


The  relative  amplitudes  and  y3  are  obtained  from  the  homogeneous  linear 
system  of  equations  whose  coefficient  matrix  appears  in  equation  (7),  viz,, 
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Yj =  2  Y3  •  (29) 

Vpfvs 

The  sign  of  in  equation  (28)  is  determined  by  the  condition  that  the  surface 
wave  is  bounded  as  xA  “•+*. 

The  total  field  in  the  crystal  is  expressed  as  a  linear  combination  of  the 


’partial"  fields  associated  with  the  allowed  values  of  a  ,  namely 

L> 

u. -  f 


cp  =  f  vrhy  e  c  3  s  e  1  s 

In  the  fluid  medium  the  total  displacements  and  potential  are  given  by  equation  (26) . 

The  amplitude  coefficients  B^,  B^,  B^,  B™,  C  and  y3  are  determined  by 
the  boundary  conditions: 


U3  continuous  at  x^  =  0 
cp  continuous  at  x^  =  0 

D3  continuous  at  x3  =  0  (electric  displacement) 

T33  continuous  at  x3  =  0 
T31  =  °  at  x3  =  0 
T32  =  °  at  x3  =  0 

The  components  of  the  electric  displacement  vector  D  in  the  crystal  are  given  by 


DreiMuk,t-VU 


i  =  1, 2, 3  ; 


in  the  fluid  medium,  D  =  -efVcp,  where  ef  is  the  dielectric  constant  of  the  fluid. 

Application  of  the  boundary  conditions  to  the  total  field  solutions  leads  to  a  set 
of  six  homogeneous  equations  in  the  unknown  amplitudes  B^  l  =  1,2, 3, 4,  C  and 
Y3-  The  coefficient  matrix  of  this  system  of  equations,  M  =  [M.^  k=i  .  6  , 
assumes  the  form* 


♦The  explicit  equations  for  the  elements  of  M  are  given  in  Appendix  II. 


IV— **'>-»•< 


33 


M  = 


M11 

M12 

M13 

M14 

0 

M21 

M22 

M23 

M24 

M25  | 

M31 

M32 

M33 

M34 

M35 

M41 

M42 

M43 

M44 

o  1 

M51 

M52 

M53 

M54 

0  I 

M61 

M62 

M63 

M64 

0 1 

(31) 


The  characteristic  equation  for  the  surface  wave  velocity  vg  is  obtained  from 
the  condition  for  the  existence  of  a  non-trivial  solution  of  the  aforementioned 
homogeneous  system,  namely,  detM  =  0. 

The  complex  solutions  to  the  equation  det  M  =  0  can  be  obtained  in  a 
straightforward  fashion  using  the  iterative  scheme  described  in  the  programming 
sections  and  such  a  procedure  has  been  built  into  the  computer  program  for  the 
fluid  problems .  However  such  a  procedure  is  time  consuming  and  does  not 
fully  exploit  prior  work  on  piezoelectric  surface  wave  propagation  problems . 
Inasmuch  as  a  computer  program  exists  to  calculate  piezoelectric  surface 
wave  characteristics  under  a  variety  of  conditions,  in  particular,  when  the 
surface  of  the  crystal  is  traction  free  and  the  adjacent  half  space  is  a  massless, 
non  elastic  dielectric,  it  is  desirable  to  make  maximum  use  of  this  program. 
This  can  be  done  for  a  wide  range  of  parameter  values  for  the  fluid  medium  by 
making  use  of  a  perturbation  scheme  for  obtaining  the  roots  of  Jet  M  =  0 
which  utilizes  the  results  of  this  program  and  requires,  in  addition,  only  the 
evaluation  of  a  few  determinants  at  specified  velocities . 

The  implementation  of  the  perturbation  procedure  is  based  on  the  fact  that 
a  particular  sub- matrix  N  of  the  matrix  M  (as  indicated  by  the  partitioned 
matrix  in  equation  (31))  is  the  coefficient  matrix  of  the  linear  system 
corresponding  to  the  boundary  conditions  at  the  surface  of  a  crystal  in  contact 
with  a  medium  whose  elastic  properties  are  those  of  a  vacuum  but  whose 
dielectric  constant  is  that  of  the  fluid  medium.  Consequently,  the  equation 
detN  =  0  is  the  characteristic  equation  for  the  velocity  of  the  surface  waves 
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which  can  propagate  in  this  configuration,  and  the  roots  of  this  equation  can 
be  found  using  the  computer  program  for  the  first  problem  with  tuh  =  “  and  the 
dielectric  constant  of  a  vacuum  eQ  replaced  by  the  dielectric  constant  of  the 
fluid  (ep . 

The  perturbation  procedure  is  based  on  the  assumption  that  the  complex 
velocity  which  satisfies  detM  =  0  corresponds  to  a  small  perturbation  on  the 
real  velocity  solution  of  detN  =  0,  i.e.  that  the  mechanical  loading  of  the 
substrate  by  the  fluid  medium  is  quite  small. 

Formally  the  perturbation  scheme  is  derived  as  follows .  Let  vSq  be  the 
velocity  such  that  det N(vS(J  =  0  and  assume  that  there  exists  a  complex 
perturbation  Avg  such  that  the  detM(vg)  =  det  M(vSq  +  Avg)  =  0  and  |  Av  Aol <<1- 
For  |A*s/vS()|  « 1 


detM(vg)  =  detM(vg  )  +  ^7-  [detM(vg>] 
o  s 


Av 


(32) 


v  =  v 
s  s„ 


+  0[(Avcr]  =  0  , 


2 

whereupon  neglecting  terms  O  [(Av  )  ]  yields 


detM(vSo) 

37-  (det  M(v  )) 
s  o 


(33) 


Expanding  det  M(vSq)  about  the  last  column  (which  has  only  two  elements)  gives 


Av  = 
s 


m46k 


M^dethO'-M^K'-M^K 


(34) 


where  the  quantity  K  in  (34)  is  the  minor  of  the  element  in  the  matrix  M, 

the  primes  denote  differentiation  with  respect  to  v  ,  and  all  quantities  are 

s 

evaluated  at  vSo.  In  obtaining  (34)  explicit  use  has  been  made  of  the  fact  that 
det  N(vSq)  =  0 . 

The  derivatives  of  the  determinants  employed  in  the  perturbation  procedure 
are  calculated  numerically.  The  derivative  of  the  matrix  element  was 
obtained  analytically . 
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In  both  methods  of  obtaining  the  complex  velocity  v  the  functions  involved 

s 

(matrix  elements  and  minors  of  the  matrix  M)  contain  as  an  independent 
variable  which  in  turn  is  a  dependent  variable  with  argument  v  .  Equation  (28) 
shows  that  there  is  an  ambiguity  in  the  sign  of  c^.  The  resolution  of  this 
ambiguity  leads  to  the  particular  character  of  the  piezoelectric  surface  wave. 

The  variation  of  the  surface  wave  in  the  direction  of  propagation  is 
assumed  to  be  bounded  in  the  positive  (x^  -+“)  direction  of  propagation.  This 
assumption  imposes  the  requirement  that  Im  [v^  3-0.  Consequently,  the  sign 
of  otj  must  be  chosen  such  that  this  condition  is  satisfied. 


Since  \  and  are  positive  real  it  can  be  shown  that 


Re 


9 


where  denotes  to  the  values  of  af  from  equation  (28)  corresponding  to  the 


(->  ,•< 


positive  and  negative  signs  of  the  radical.  Consequently,  if  aj  '  is  required  to 

obtain  a  root  v  such  that  Im  [v  ]  ^  0  the  corresponding  surface  wave  is  of  the 
s  s  (“B 

leaky  type.  On  the  other  hand,  if  7  is  required  to  obtain  a  solution  of 
the  determental  equation  the  surface  wave  is  evanescent  in  character.  In  all 
numerical  cases  considered  the  surface  wave  was  a  leaky  wave. 


In  the  pregram  described  in  the  following  section,  two  values  of  input 
velocity  are  required  depending  on  the  program  option  used.  If  the  perturbation 
scheme  is  used, a  very  accurate  value  (at  least  6  place  accuracy)  of  velocity 
must  be  input.  This  valut-  is  to  be  computed  from  the  existing  surface  wave 
program  wherein  the  dielectric  constant  of  the  fluid  medium  is  substituted  for 
that  of  free  space  (outside  the  crystal  medium).  On  the  other  hand,  if  the 
root  finding  scheme  is  employed  only  a  reasonable  estimate  of  the  complex 
velocity  is  required. 


A  final  word  of  caution  is  in  order  regarding  the  use  of  the  computer 
program .  In  checking  out  the  various  options  available  with  the  program,  it 
was  found  that  if  the  leaky  wave  velocity  is  a  small  perturbation  on  the  surface 
wave  velocity  in  the  absence  of  the  fluid  medium,  then  the  use  of  the  perturbation 
scheme  led  to  more  reliable  results  than  the  root  finding  option.  On  the  other 
hand,  if  the  fluid  medium  significantly  loaded  the  substrate  material,  the  root 


36 


i 


finding  scheme  gave  good  results  whereas  the  perturbation  scheme  (as  would 
be  expected)  gave  erratic  results  in  some  cases .  The  former  differences  stem 
from  the  fact  that  the  change  in  the  velocity  due  to  the  air  loading  is  on  the 
order  of  the  errors  incurred  in  the  root  finding  scheme  while  the  latter  are  due 
to  the  approximations  inherent  to  the  perturbation  procedure. 


7.  Surface  Wave  Propagation  in  an  Isotropic  Elastic  Film  on  a  Piezoelectric 

Substrate  "  " 

This  section  gives  a  brief  description  of  the  theoretical  analysis  of  surface 
wave  propagation  on  a  semi-infinite  piezoelectric  substrate  with  a  contiguous 
isotropic  dielectric-elastic  layer,  as  shown  in  Figure  3. 

The  substrate  is  assumed  to  be  a  completely  general  piezoelectric  (or 
non- piezoelectric)  crystal  medium  with  arbitrary  surface  normal  direction 
relative  to  the  crystal  axes  of  the  medium .  The  material  layer  adjacent  to 
die  substrate  is  assumed  to  be  a  general  isotropic  elastic  medium  with  isotropic 
dielectric  properties .  Only  pure  modes  of  propagation  are  considered,  that  is, 
leaky  surface  waves  or  evanescent  (or  cut  off)  modes  of  propagation  have  not 
been  accounted  for  in  the  computer  program. 


vacuum 


Figure  3.  Semi-infinite  Piezoelectric  Substrate  with  a  Contiguous  Isotropic 
Elastic  Layer . 
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The  coordinate  system  employed  in  the  analysis  is  illustrated  in  Figure  3. 
The  piezoelectric  crystal  medium  occupies  the  region  x^  >  0  and  the  direction 
of  propagation  is  assumed  to  be  in  the  Xj  direction.  The  fields  in  both  the 
crystal  and  layer  are  assumed  to  be  independent  of  the  x2  coordinate .  Arbitrary 
orientations  of  the  crystal  surface  with  respect  to  the  crystal  axes  are 
considered  as  before  by  an  Euler  Transformation.  Inasmuch  as  the  dielectric 
layer  is  isotropic,  both  from  an  elastic  and  an  electromagnetic  point  of  view, 
the  quantities  characterizing  the  medium  are  invariant  under  coordinate 
transformations . 

The  analysis  pertaining  to  the  crystal  or  "substrate"  medium  is  identical 
to  that  described  in  Sections  II.  1  and  II. 2. 

The  elastic  properties  of  the  dielectric  layer  are  described  in  terms  of 
two  elastic  constants,  Ad,  the  modulus  of  compression  or  Lame's  constant, 
and  pd  the  shear  modulus.  Inasmuch  as  the  layer  is  non-piezoelectric  the 
differential  equations  for  the  mechanical  displacements  and  electric  potential 
decouple  and  assume  the  form 

pdV2u  +  (Ad  +  pd)v(V.U)=Pd1j  ,  -h<x3<0  ,  (35) 

and 

V2cp=0  ,  (36) 


where  U  =  (Uj,!^,!^)  and  Pd  is  the  density  of  the  dielectric  medium. 

In  the  dielectric  medium  the  assumed  displacement  waveforms  may  be 
expressed  as 


ui  *  ea.  e 

i 


■adra3/vS 


ju)(t- Xj/v  ) 


i=  1,2,3  . 


(37) 


Substitution  of  these  waveforms  into  the  differential  equations  (35)  yields  a 
linear  system  of  homogeneous  equations  in  the  unknowns  @dJ,  and  3d3. 

The  existence  of  non- trivial  solutions  requires  that  the  determinant  of  the 
coefficients  of  the  system  vanish  thus  leading  to  the  following  classical 
equations  for  normalized  transverse  wave  numbers  ad  in  terms  of  the  velocity 
vg,  namely, 


t 


I 
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41, 2)  *  ad  (shear) 


,±  jijZjgT 


(38) 


and 


a^3,  ^  (compressional)  =  ± 


af6)=a<1'2> 


Ld  1  ^d  rdTs 
Xd  +  2^d 


A„  +  2|id  -  PjV 


(39) 


i 

! 


since  the  shear  mode  is  degenerate  for  an  isotropic  elastic  medium.* 

Finally,  in  the  dielectric  medium,  the  two  independent  solutions  of  (36) 
•icux./vcs 

assuming  e  J  variation  in  the  direction,  are 


^1, 2  =  Cl,  2 


±uVvs 


(40) 


In  the  "free  space"  region  -®  <  x^  <  -h  there  are  no  mechanical  displace¬ 
ments  but  a  potential  function  exists  and  must  satisfy  the  differential 
equation  (36).  In  addition,  the  requirement  that  the  potential  be  bounded  as 
x  "*  -®  is  imposed.  Therefore,  the  form  of  the  potential  is  taken  to  be 


UKo/v.  juj(t-x./v  ) 
cps  =  C3  e  3  3  e  1  s 


(41) 


The  total  displacement  and  potential  waveforms  in  the  piezoelectric 
crystal  are  expressed  as  linear  combinations  of  the  "partial”  fields  associated 
with  the  allowed  values  of  ac .  Denoting  these  values  a^,  l  =  1, 2, 3, 4,  the 
displacement  components  and  potential  may  be  expressed  as 


*The  term  degenerate  is  used  here  in  the  sense  that  in  the  characteristic 
equation  for  the  normalized  transverse  wave  numbers  a  (for  example,  corres¬ 
ponding  to  the  determental  equation  (3)  for  the  general  piezoelectric  crystal) 
the  roots  aW  and  aS^)  are  double  roots  and  hence  two  linearly  independent 
eigenvectors  can  be  defined  for  each  distinct  value . 


5 


l 


i 


i 

t 

1  1 
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u{c)=  f  e  C  3  S  e  1  S  ,  i=  1,2,3  , 

4  «'-vv  . 


(42) 


”  & 

In  the  dielectric  medium  the  total  displacement  components  assume  the  form 

9  ...  ...  "ttj  \ux«/v  Mt-x./v  ) 

U>d'  =  T  DW  g^>  e  d  3  s  e  1  s  ,  i=  1,2,3  , 


1  tel 


(43) 


while  the  total  potential  is  given  by 


cpd  = 


(UX„/v  -ou x«/v 

Cje  3  S+C2  e  3  s 


ju^t-x^Vg) 


(44) 


In  the  free  space  region  the  total  potential  is  given  by  equation  (41). 

The  as  yet  unspecified  amplitude  coefficients  B^,  1=1, 2. 3, 4,  ;D^, 
1=  1, 2, . . .,  6;  Cy  Cy  and  Cg  are  determined,  to  within  a  constant,  together 
with  the  surface  wave  velocity  v  ,  by  the  following  continuity  and  boundary 

O 

conditions: 

(i)  11^,  U2,  and  Ug  continuous  at  Xg  =  0 

(ii)  cp  continuous  at  Xg  =  0  and  Xg  =  -h 

(iii)  Continuity  of  the  normal  component  of  electric  displacement 
?.t  Xg  =  0  and  Xg  =  -h 

(iv)  Continuity  of  shear  and  normal  stresses  (Tgj,  Tg^,  Tgg) 
at  Xg  =  0 

(v)  The  surface  Xg  =  -h  is  stress  free  (Tg^  =  Tg2  =  Tgg  =  0). 

The  components  of  the  electric  displacement  vector  D  are  given  by 

V'KUM-V,l  -  1=1-2-3  x3 >0  • 


D  =  e^Vcp 


-h  <  Xg  <  0 


} 
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and 

D  =  e  Vcp  x-  <  -h 

o  3 

The  components  of  stress  T^,  T^,  and  T33  are  given  by 

T3j  =  C3jUUk,  l +  ek3jCp,  k  » 

T31  =  ^d(Ul,3+U3,l) 

T32  =  ^dU2,3 

T33  =  (Ad  +  2*Jd)U3,3  +  AdUl,l 

Application  of  the  continuity  and  boundary  conditions  (i). . .  .(v)  to  the 
total  displacements  and  potentials  (40),  (41),  (42),  (43),  and  (44)  leads  to  a 
system  of  thirteen  linear  homogeneous  equations  in  the  thirteen  unknown 
amplitudes  B^,  1=  1,2, 3, 4,  D(^,  t=l,...6,  Cp  C2andC3.  The 
equation  for  the  surface  wave  velocity  vg  is  obtained  from  the  condition  for  the 
existence  of  a  non-trivial  solution  of  this  system  of  equations,  namely,  that 
the  determinant  of  the  system  vanish.  The  explicit  forms  of  the  coefficients 
Ly  ,  i,  j  =  1, . . .,  13,  of  this  system  are  contained  in  Appendix  III  where  the 
appropriate  boundary  conditions  represented  by  each  row  of  the  matrix  are 
indicated. 

If  the  substrate  is  non-piezoelectric,  modifications  of  the  foregoing 

analyses  identical  tot  hose  described  in  Section  11.1  are  required.  In  this  case, 

the  characteristic  equation  for  the  surface  wave  velocity  is  the  determinant  of 

(n 

a  (9  x  9)  matrix  comprised  of  the  coefficients  of  the  amplitudes  Dv  %  l  =  1, . . .,  6, 
and  1=  1, 2, 3  in  the  homogeneous  system  of  9  equations  in  9  unknowns 
derived  from  the  boundary  conditions  given  above  upon  neglecting  the  electric 
field  and  setting  the  piezoelectric  constants  equal  to  zero. 

Degenerate  Cases  (Piezoelectric  Substrate) 

The  same  degenerate  cases  arise  as  those  considered  in  the  preceeding 
sectidns  and  the  selection  of  P's  proceeds  as  before. 

For  case  (1)  (Section  II. 2)  solutions  are  sought  wherein  Up  U3  and  cp 
only  exist  in  the  crystal.  This  type  of  solution  uses  only  the  a  values  which 


j  =  1, 2, 3,  x~  >  0 


-h  <  x3  <  0  . 
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lead  to  02  =  0  and  0p  0g,  and  0^  non-zero.  Also  in  this  problem  solutions 
where  U2  only  exists  in  the  crystal  must  be  considered  (e.g.  Love  waves  or 
the  piezoelectric  perturbations  thereof).  This  solution  stems  from  the  root 
a  which  leads  to  non- zero  02  and  zero  0p  0g»  and  0^. 

As  in  the  previously  considered  degenerate  cases  the  determinant  of 
the  boundary  condition  matrix  t  factors  into  the  product  of  two  determinants. 
The  determinant  which  corresponds  to  the  Up  U^»  V  solutions  is  denoted  M 
and  assumes  the  form, 

L12  L13  L14  L18  L19  Ll,10  Ll,  11  Ll,  12  Ll,  13 


f 

i 


L13,13  j 

The  solution  for  the  U2  case  depends  upon  existence  of  zeros  of  a  determinant 
N  where  N  is  a  (3  x  3)  determinant. 

L25  L26  L27 
L55  L56  L57 
L85  L86  L87 

For  case  (2)  (Section  II. 2)  solutions  wherein  only  and  U3  exist  are  considered. 
This  type  of  solution  uses  only  those  a's  which  lead  to  zero  02  and  0^  and  non¬ 
zero  0j  and  0£.  Solutions  where  only  U2  and  cp  exist  also  must  be  considered. 
This  solution  employs  the  a's  which  give  non-zero  02  and  0^  but  zero  0j  and  0^, 
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The  solution  for  the  Uj,  case  depends  upon  existence  of  zeros  of  a 
determinant  P  (6  x  6),  where, 


The  solution  for  the  U2,  case  depends  upon  existence  of  zeros  of  a  deter¬ 
minant  Q  (7  x  7),  which  assumes  the  form 


^25  L26  L29  L2, 10  L2, 11  L2, 12  L2, 13 


The  degenerate  cases  U^,  U^,  only  or  U2  only  involve  one  a  with  zero 
®1»  ^3*  an(*  non-i’.ero  32  and  two  o.'s  with  zero  P2  and  non-zero  3^,  3^. 

The  Ui#U3  case  requires  the  investigation  of  the  roots  of  a  determinant  of 
the  same  form  as  P  except  for  relabeling  the  columns  due  to  a  relabeling  of 
the  a's.  This  determinant  is  designated  R  and  has  the  form, 


-tfwS'  *■  it  vM  t£>' . 


1 

f 

I 


Solutions  with  IL  only  (Love  waves)  lead  to  the  consideration  of  the  roots  of  a 
i  determinant  which  is  identical  to  N. 

i 

t 


i 

i 

» 


\ 
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III.  ANALYSIS  OF  AN  ELECTRIC  CURRENT  LINE  SOURCE  ABOVE  A 

PIEZOELECTRIC  HALF-SPACE 

In  this  section  a  stuuy  is  made  of  the  excitation  of  piezoelectric  waves  by 
means  of  an  interdigital  electrode  transducer.  Arbitrary  crystals  and  crystal 
orientations  are  considered  as  in  the  preceeding  chapter.  The  problem  is 
treated  from  a  field  theory  point  of  view  and  is  case  in  the  formalism  of  a 
Green's  function  solution.  Due  to  the  complexity  of  the  problem  it  is 
expediant  to  make  some  simplifying  assumptions  before  the  analysis  is 
attempted.  Consequently,  it  is  assumed  that  the  coupling  between  the  individual 
strips  can  be  neglected  and  that  the  current  on  the  strips  can  be  approximated  by 
an  assumed  current  distribution.  Furthermore  it  is  assumed  that  only  current 
flow  normal  to  the  array  is  of  importance  in  exciting  the  piezoelectric  waves 
and  that  the  strips  of  the  array  can  be  considered  to  be  of  infinite  extent  thus 
reducing  the  problem  to  a  two  dimensional  one. 

With  these  assumptions  in  mind  the  Green's  function  sought  is  one  for 
an  infinitesimal  two  dimensional  electric  dipole  above  a  piezoelectric  substrate 
as  illustrated  in  Figure  4. 


The  dipole  is  located  at  xQ,  zq  and  extends  to  +00  in  the  y  direction.  It 
is  oriented  in  the  x  direction.  The  crystal  fills  the  region  z  -  0  while  a 
vacuum  exists  in  the  region  z  >  0.  Assuming  an  e^  time  dependence,  the 
equation  for  the  electric  field  in  the  vacuum  is  as  follows: 

V  x  V  x  E  =  jupQ  J  +  w2pQD  .  (45) 


E. 
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For  the  two  dimensional  dipole  J  =  Ux  ^(z-z^  6(x-xJ  and  equation  (45)  reduces 
to 


V2E+^I=-j«,io 


w 

,+? 

o 


J 


where  1  is  the  unit  dyadic,  k  =  2rt/A  ,  and  X  is  the  free  space  wavelength. 

_  4  -»  °  °  ° 

Setting  E  =  (1  +  VV/k  )  •  G  it  is  easily  seen  that 


V2G  +  k2G  =  -j(i*io  d(z-zQ)  6(x-xq)  Ux 
A  particular  solution  to  equation  (46)  is 


G  =  -U 


% 

x  4tt 


I  o  X 


jk  (x-x  ) 
e  A  dk 


(46) 


(47) 


A  particular  solution  for  E  (viz.  Ep)  is  derivable  from  G  and  in  the  region 
0  <  z  <  zQ  the  following  expression  results,  namely, 


ed  i  ,/i^  f-  r  i — % 

0  0  \  J  _ 

V  -'•oo 


)Kx<x'V 


dK 


f"  -j^l-Kx(z-z0)  JKx(x-x^ 

-uz  /  Kxe  x  e  a  dK, 

✓  -00 


(48) 


E  E 

u  +  -J25-U 

k  x  k  z 
o  o 


where  K  =  k  /k  ,  x  =  k  x,  and  z  =  k  z .  A  solution  for  the  total  electric  field 

X  X  O  O  O  p 

may  be  obtained  as  a  superposition  of  E  and  a  general  solution  of  the  homogeneous 

2-*  2-*  P 

equation  v  E+  kQE  =  0.  That  is,  in  the  region  0  <  z  <  zQ  E  may  be  written  in 
the  form 
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¥+  f 

0  J-a> 


W 


j  yi-K2' (z-z  )  jK  (x-x  ) 
v  x '  o'  J  x'  o' 


clK 


x 


(49) 


/  2^ 
V1** 


where  A  (K  )  and  B  (K  )  are  functions  of  K  which  are  determined  through 

o  x  o  X  X 

the  application  of  the  boundary  conditions  on  the  total  fields  at  z  =  0 . 


In  the  crystal  medium  (z  <  0)  the  mechanical  displacement  fields  and 
the  electric  fields  may  be  expressed  as  follows: 


ui  - 


r 

I  w 

-/-GO 


;iKze-i0>  eiKx(5-x0,  dK 


x 


i  =  1,2,3 


(50) 


-jK  (z-z  )  jK  (x-x  ) 
e  z  0  e  x  0  dK, 


i  =  1,  2,3 


When  the  above  integral  representations  are  substituted  into  the  differential 
equations  for  the  crystal,  viz. 


^ijk-t  ^k,  ti  ekij^k,  i  ”  P^j 


VxVxE  =wuD 
ro 


j=  1,2,3 


(51) 


there  results  a  linear  system  of  homogeneous  equations  for  the  amplitudes 

and  ^(K^.  The  determinant  of  the  coefficients  of  U.  and  ^  must  vanish 
for  a  non- trivial  solution  to  exist,  namely, 
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In  the  above  equation  C  is  the  velocity  of  light.  Expanding  this  determinant 
leads  to  a  10'th  order  algebraic  equation  for  Kz  as  a  function  of  K^. 

For  a  given  K  in  the  range  -“  <  K  <  ®  there  will  be  10  values  of  K 
XX  z 

satisfying  the  determinental  equation  but  only  5  will  be  admissable  (representing 

field  solutions  that  are  bounded  as  z  -  -  “  and  have  the  form  of  out  going 

waves  in  the  region  z  <  0).  For  each  usable  K  it  is  necessary  to  solve  the 

z 

homogeneous  system  for  the  corresponding  field  amplitudes  O.,  i|l. 

Thus  U.  and  E.  can  be  expressed  as  follows: 


where  Ar(K  are  unknown  amplitude  coefficients  to  be  determined  by  an 
application  of  the  boundary  conditions.  The  magnetic  field  in  the  crystal 
medium  and  in  the  vacuum  can  be  written  in  a  similar  fashion  and  is  derivable 
from  the  equation 

v  x  E  =  juj|aoH 

The  boundary  conditions  imposed  on  the  field  solutions  at  z  =  0  are  as 
follows: 


Continuity  of  T^ 
Continuity  of  EJL  and  E2 
Continuity  of  Hj  and  1^ 


1,2,3 


The  imposition  of  these  conditions  leads  to  the  following  set  of  equations 
in  the  amplitude  coefficients  Aq,  Bq,  A^.  The  limiting  case  zq  -♦  0  has  been 
taken  in  the  following  since  the  electrodes  will  be  located  on  the  crystal  surface 
at  z  =  0 . 


\ 


(56) 


In  practice  the  solution  of  equations  (54 X  (55),  and  (56)  would  be 
performed  numerically  on  a  computer  as  a  function  of  K  . 

The  integral  expressions  for  the  total  mechanical  displacements  and  electro¬ 
magnetic  field  components  follow  from  the  solution  of  the  system  of  equations 
described  above.  An  asymptotic  evaluation  of  the  resulting  integrals  may  be 
employed  to  obtain  formal  expressions  for  the  physical  quantities  of  significant 
interest  such  as  the  surface  wave  fields,  power  in  the  surface  wave,  total 
power  input  to  the  crystal  by  the  transducer,  and  the  bulk  wave  scattered 
amplitude  pattern.  The  expressions  for  the  aforementioned  quantities  are  very 
formidable  and  would  require  an  extensive  amount  of  numerical  computation 
to  obtain  even  limited  information.  Consequently,  it  was  decided  to  abandon 
this  approach  and  the  numerical  implementation  of  the  theoretical  analysis  was 
not  carried  out. 
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IV.  COMPUTER  PROGRAM  OUTLINES 

This  section  describes  the  use  and  programming  format  of  the  computer 
programs  which  were  written  to  implement  the  numerical  analysis  of  the  various 
surface  wave  propagation  problems  described  in  Section  II. 

1.  Surface  Waves  on  Piezoelectric  Crystals  in  the  Presence  of  Infinitesimally 

Thin  Electric  and  ^Magnetic11  Conductors 

This  computer  program  is  divided  into  two  parts:  Part  A  is  concerned 
with  an  isotropic  elastic  conductor  (such  as  gold)  of  finite  thickness  above  a 
piezoelectric  substrate  (such  as  lithium  niobate);  Part  B  is  concerned  with  an 
infinitesimally  thin  electric  or  magnetic  conductor  above  a  piezoelectric 
substrate.  All  information  necessary  for  the  operation  of  the  pr;  gram  is 
described  below.  For  example,  an  initial  guess  of  the  surface  wave  velocity  is 
required.  From  this  information,  the  program  refines  the  initial  guess, 
resulting  in  a  velocity  accurate  to  input  specifications . 

The  program  is  set  up  to  run  on  an  IBM  7094,  and  the  form  of  input  is 
FORTRAN  Namelist  input.  Although  it  is  discussed  in  this  document,  it  is 
suggested  that  those  not  familiar  with  Namelist  input  read  the  appropriate 
sections  in  a  Fortran  manual. 

Deck  Setup 


$DATA 


/FORTRAN. 
/SOURCE  / 
DECKS  /  > 


$IBJOB 
|  $MA]UiiD~ 
$ATEND 


$TCP 

$ID 

\ 
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The  $ID  and  $TCP  control  car<is  must  be  supplied  by  the  user;  die  remaining 
control  cards  are  already  in  the  program  deck.  The  data  deck  (i.e.,  the  input 
data  for  the  program)  utilizes  Namelist  input.  Two  input  sections  are  required: 
the  first  describes  the  parameters  of  the  substrate  crystal;  the  second  provides  the 
remainder  of  the  information  necessary  for  the  execution  of  the  program. 

The  first  data  set  is  called  CONST.  This  set  includes  the  piezoelectric, 
elastic  and  dielectric  constants .  Column  2  of  the  data  card  contains  a  dollar  sign  ($) 
and  columns  3-7  contain  the  letters  CONST.  The  constants  begin  in  column  9  of  the 
first  card  and  continue  up  to  column  72;  they  then  continue  to  columns  2-72  of  each 
succeeding  card  for  as  many  cards  as  needed.  The  general  form  of  the  data  to  be 
input  is: 

Variable  name  =  1st  value,  2nd  value,  . . .  ,  last  value  . 

For  example,  the  piezoelectric  constants  (e^),  called  P  in  the  program,  could 
be  input  as: 

P  =  0.,0.,0.,0.,3.7, -2.5,  ...,0.  , 

There  are  18  piezoelectric  constants  and  they  should  be  input  in  the  following 
order: 


ell 
e12 
e13 
e14 
e15 
e16 
e21 
e22 
e23 
•  e24 
e25 


Ue.  P  =  en,  e12,  ,  e36,  . 


out  as 


In  the  program  the  transformed  piezoelectric  constants  c/  arc  printed 


E1  =  ell 
E2  =el3 
E3  =  e14 
E4  =  e15 
E5  =e16 
E6  =e31 
E7  =e33 
E8  =e34 
E9  =e35 
E10  =  e36 
E11  =  e12 
E12  =  e32 
E13  =  e21 
E14  =  e23 
E15  =  e24 
E16  =  e25 
E17=  e26 
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The  transformed  constant  e^  is  never  used  and  therefore  is  not  printed 


The  elastic  constants  (C^),  called  G  in  die  program,  are  next. 
Immediately  following  the  comma  (,)  behind  the  last  piezoelectric  const?  at 
(excluding  blanks),  print: 


followed  by  the  21  values  of  die  elastic  constants  in  the  following  order, 
separating  each  variable  by  a  comma: 


V 
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In  the  program  die  transformed  elastic  constants  C.j  are  printed  out 


as: 


C10  =  c45 
C11 =  c46 
C12 =  C55 
C13  =  c56 
C14 =  c66 
C15 =  C16 
C16 =  C12 
C17 =  C25 
C18  =  C26 
C19  =  C24 
C20  =  C23 


The  transformed  constant  c^  is  not  used  and  therefore  not  printed  out. 
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I 


i 


The  dielectric  constants  (e„),  called  EPS  in  the  program,  are  the  last  constants 
to  be  entered*  They  should  be  entered  following  the  comma  after  the  last  value  of 
the  elastic  coefficients,  as 

EPS  = 

followed  by  9  values  of  EPS  in  the  following  order,  separating  each  variable  by 
a  comma: 
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The  transformed  constant  is  never  used  and  therefore  is  not  printed 

out. 

After  the  last  value  of  EPS,  namely  ^3,  print  a  dollar  sign  ($>  instead 
of  a  comma.  That  is, 

iiPS  =  exl»  e12»  e13»  e2i»  S22»  S23»  £31’  e32’  £33*  * 


This  signals  the  end  of  the  first  data  set. 


The  second  data  set  is  called  ’’INPUT.’’  $INPUT  must  be  printed  in 
columns  2-7  of  the  next  card  (following  the  EPS  data).  Then  each  input 
parameter  should  be  entered,  followed  by  a  comma  (except  the  last  value, 
which  should  be  followed  by  a  dollar  sign,  $) .  The  following  is  a  definition  of 
each  input  parameter  (unless  otherwise  stated,  the  input  parameters  will  refer 
to  both  Part  A  and  Part  B): 
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Input  Name 

Equation  Names 

Definition 

MUA 

p (Part  A) 

Lame's  constants  for  elastic 
conductor 

LAMDAA 

A (Part  A) 

RHOA 

P 

Mass  density  of  elastic  conductor 

LAMDAB 

A (Part  B) 

Euler  Angles 

MUB 

p  J?art  B) 

NUB 

v  (part  B) 

RHOB 

p  (Part  B) 

Mass  density  of  crystal 

VS 

V 

s 

Initial  guess  to  a  velocity.  This 
initial  value  will  be  used  to  find  a 
final  velocity,  vs  such  |f(Vg)  |  <  c, 
where  e  is  input. 

KS 

k 

s 

Can  take  on  two  values: 
ks  =  0  for  Part  B 
=  1  for  Part  A 

EPSLON 

e 

A  positive  number  used  as  a  conver¬ 
gence  criterion.  When|f(vg)  |  <  e,  then 
vs  is  assumed  to  be  the  root  required. 

WH 

uh 

Normalized  height  of  conducting  wall 
or  magnetic  wall  (Part  B) 

Normalized  thickness  of  elastic 
conductor  (Part  A) .  To  input 
ufa  =  »,  set  WH  >  1010. 

WXA 

tuta  (Part  A) 

Normalized  distance  into  elastic 
conductor 

WXB 

ouXjj  (Part  A) 

Normalized  distance  into  crystal 

KL 

Kl  (Part  B) 

Kl  is  normally  0.  However,  if  the 
electric  wall  case  is  being  run 
(see  Km)  and  if  wh  =  0,  then  K^  should 
be  set  to  1 . 

KM 

Km  (Part  B) 

This  can  take  on  two  values: 

Km  =  0  electric  wall 

Km  =  1  magnetic  wall 
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Input  Name  Equation  Names 
MAX 


ICHECK 


DVS 

Av 

s 

VSMAX 

vw 

EPSO 

e 

0 

WX 

tux  (Part  B) 

DNU 

Av 

NUMAX 

vmax 

DWX 

Auk 

Definition 

Since  an  iteration  scheme  is  used  for 
convergence  for  a  final  root  vs,  there 
must  be  an  indication  of  how  many 
iterations  are  to  be  executed  before 
divergence  is  assumed.  Hence,  MAX 
should  be  the  maximum  number  of 
iterations  the  user  wishes  the  program 
to  make  (usually  10).  If  MAX  is  set 
to  zero  (MAX  =  0)  the  determinant 
I  f(vs)  1  will  be  evaluated  for  the 
particular  vs  value  input  —  the  iteration 
scheme  will  not  be  used.  This  option 
may  be  useful  if  there  is  difficulty  in 
determining  the  range  in  which  vs  lies . 

A  logical  parameter  which  controls  the 
use  of  a  checkout  option.  If  ICHECK  = 
.FALSE. ,  all  FINAL  ANSWERS*  are 
computed  in  addition  to  the  evaluation 
of  the  determinant  |  f(vs)  | .  If 
ICHECK  =  .TRUE. ,  FINAL  ANSWERS 
are  rurt  computed  -  evaluation  of  the 
determinant  only*.  This  option  was 
included  for  use  when  MAX  =  0 . 

Increment  to  be  used  for  vs  when 
ICHECK  =  .TRUE.  (DVS  ^  0.) 

Maximum  value  of  v„  to  be  used  when 
DVS  f  0 . 

Permittivity  of  free  space 

Normalized  distance  into  crystal 

If  the  user  wishes  to  vary  v  (NUB) 
from  some  initial  value,  v,  to  some 
final  value,  vmax,  in  steps  of  Av,  then 
set  DNU  equal  to  the  steps  desired; 
also,  seeNUMAX. 

The  maximum  value  of  v  (see  DNU) . 
vmax  is  only  used  when  DNU  ±  0 . 

An  increment  for  uk,  similar  to  DNU. 

If  DWX  =  0,  then  i*u  is  not  incremented. 


*The  FINAL  ANSWERS  consist  of  the  partial  field  relative  amplitudes  (Eta),  stress 
components,  strain  components,  time  average  power  flow,  electric  and 
mechanical  displacements,  electric  potential,  and  electric  field. 
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Input  Name 
WXMAX 

TITLE 


RBPBAT 


HXAGNL 

VSINC 


Bquation  Names  Definition 

uk  The  maximum  value  of  tux  (see  DWX) . 

naax  uxmax  is  only  used  when  DWX  7*  0. 

—  An  alphanumeric  array  of  24 

characters  or  less  used  to  describe  the 
type  of  crystal,  such  as  lithium  niobate. 
This  is  input  in  the  following  manner: 

TITLE  =  nH  name  of  crystal,  where  n 
is  the  number  of  characters  following 
the  H  (including  blanks) .  For  example 

TITLE  =  6HQUARTZ 

REPEAT  is  a  logical  variable  and  in 
its  usage,  can  take  only  one  value: 

.TRUE. 


If  there  are  no  more  cases  to  run  after 
the  current  case,  REPEAT  does  not 
need  to  be  input.  If  there  will  be 
another  case  to  follow,  but  the  crystal 
coefficients  remain  the  same,  then, 
again,  REPEAT  does  not  need  to  be 
input.  However,  if  another  case  is 
to  be  run  and  the  coefficients  are 
different,  then  REPEAT  needs  to  be 
input  as  .TRUE .  This  means  that  the 
(CONST  data  will  have  to  be  input 
again  (in  the  other  cases  above, 

(CONST  would  not  have  to  be  input 
again). 

Parameter  which  controls  the  calculation 
of  betas  (0's)  for  a  hexagonal  crystal 
(such  as  zinc  oxide) 

.TRUE .  hexagonal  crystal  (use 

special  technique) 

. FALSE .  non-hexagonal  crystal 

(use  normal  procedure) 

VSINC  =  .TRUE.  —  New  estimates  of 
initial  velocity  (vg)  are  computed  using  a 
linear  fit  to  the  two  previous  values. 
(Used  when  NUB  varies  over  a  range 

NUB,  NUB  +  DNU,  ...  ,  NUMAX) 

VSINC  =  .FALSE.  -  The  same  initial 
estimate  of  velocity  is  used  for  all  values 
over  the  specified  range  of  NUB. 
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The  following  input  parameters  are  all  logical  variables  which  are 
assumed  to  be  false  (.FALSE.)  in  the  program.  They  are  used  as  switches 
indicating  whether  or  not  intermediate  calculations  are  to  be  printed.  If  any 
one,  or  any  combination  of  these  parameters  are  input  as  true  (.TRUE.),  then 
certain  intermediate  data  will  print,  according  to  the  following: 


ROOTS 

COEFF 

DETERM 

POLY 

BETA 

ALPHA 

ALL 


Print  the  roots  of  the  polynomial  each  time  they  are  calculated . 

Print  the  constants  E,  C,  and  T  (the  transformed  piezoelectric, 
elastic,  and  dielectric  constants)  calculated  from  the  constants 
P,  G,  and  EPS . 

Print  the  L  matrix  and  the  value  of  the  determinant. 

Print  the  coefficients  of  the  8'th  order  polynomial. 

Print  the  values  of  8  . . 

U 

Printer's,  Part  A. 

Print  all  of  the  above. 


The  manner  in  which  the  above  listed  parameters  in  the  $INPUT  data  set 
are  input  is  best  illustrated  by  an  example  (assume  Part  B  is  being  run): 

$INPUT  MUB  =90.,  LAMDAB  =  90.,  NUB  =  100.,  RHOB  =  4700., 

VS  =  3400.,  KS  =  0,  EPSLON  =  l.E-11,  WH  =  0,  KL  =  1, 

KM  =  0,  WX  =  0.,  DWX  =  10.,  WXMAX  =  100., 
tide  =  15HLITHIUM  NIOBATE 

uuh  is  zero  in  the  above  example.  To  input  uh  =  ”,  set  uh  >  1010.  Note  that 

some  of  the  values  discussed  in  the  list  are  not  present  in  the  above  example. 

This  is  because  either  they  are  not  required  or  the  program  assumed  nominal 

values .  A  nominal  value  is  a  value  that  a  parameter  will  take  on  if  no  other 

value  is  input.  In  the  above  example,  MAX,  EPSO,  and  DNU  take  on  their 

-12 

nominal  values  of  10,  8.85  x  10  ,  and  0,  respectively.  It  is  not  necessary 

to  input  NUMAX  since  DNU  =  0;  all  parameters  referring  to  Part  A  are  not 
necessary  since  Part  B  is  being  run;  and  all  the  logical  parameters  take  on 
their  nominal  value  of  false .  The  following  is  a  complete  list  of  nominal  values: 
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Sample  Data  Decks: 

The  following  sample  data  deck,  illustrated  on  the  attached  code  sheet, 
gives  an  example  of  three  data  runs:  the  first  is  a  90-90-100  degree  cut  of 
lithium  niobate.  The  second  is  the  same,  except  for  a  new  value  of  uh.  The 
third  is  a  0,  0,  -90  cut  of  quartz  (note  that  REPEAT  is  set  to  true  in  the  second 
case,  just  prior  to  the  case  when  new  coefficients  are  to  be  input) . 
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The  following  is  a  description  of  the  program  flow  diagram  provided 
at  the  end  of  this  section. 

(1) 

First,  the  nominal  data  values  are  set  up  in  the  program.  These  values 
are  assumed  by  certain  parameters  in  the  program  unless  new  values  are 
specified.  Following  this  the  program  reads  in  the  elastic  (G),  piezoelectric 
(P),  and  dielectric  (EPS)  constants  (CONST  DATA)  of  the  substrate  medium. 
Finally,  the  remaining  input  data  is  read  in  (INPUT) . 

Next,  subroutine  SETCTE  is  called  to  perform  the  Euler  transformation 
to  obtain  the  elastic  (CC),  piezoelectric  (CE),  and  dielectric  (CT)  constants 
relative  to  the  input  coordinate  system  as  specified  by  the  constants  A,  \i,  and 
v.  At  this  point  subroutine  ROOT  is  called  to  perform  the  calculations  leading 
to  the  evaluation  of  the  determinant  of  the  boundary  condition  matrix  (L  matrix 
of  the  analysis).  The  determinant  is  referred  to  as  F(VS)  since  it  is  evaluated 
as  a  function  of  velocity  (VS) . 

There  is  an  option  in  the  program  to  use  a  root  finding  scheme  to  minimize 
|F(VS)|  or  simply  to  increment  VS  in  steps  of  DVS  and  calculated  F(VS)  at  each 
value.  To  perform  these  various  calculations  at  a  particular  velocity  (VS) 

ROOT  calls  subroutine  F  which  is  described  in  detail  below  (in  Determination 
of  F(VS)). 

After  exiting  from  ROOT  and  returning  to  the  main  program  logical 
checks  are  made  to  establish  the  type  of  case  considered  in  ROOT.  Depending 
upon  the  results  of  these  checks  the  values  of  the  amplitudes  of  the  partial 
surface  wave  fields  are  computed  (A^  of  analysis  section) .  In  the  program 
these  are  called  ETA(l),  ETA(2),  etc.  The  program  now  proceeds  to  compute 
the  magnitude  (MAGU(I) )  and  phase  (PHASE  U(I))  of  the  mechanical  displace¬ 
ments  (D(IX  1=1, 2, 3)  and  electric  potential  (0(4)).  Next  subroutine  P1FUN  is 
called  to  compute  the  time  average  flow  0P1M,P2M)  followed  by  the  computation 
of  the  stress  components  (TW31,  TW32,  TW33,  TW11,  TW12,  TW22)  in 
subroutine  TFUN.  Subroutine  SFUN  then  implements  the  calculation  of  the 
strain  components  (Sll,  S33,  S12,  S13,  S23).  Finally  the  electric  field 
(El,  E3)  and  electric  displacement  (Dl,  D2,  D3)  are  computed.  All  the  above 
quantities  are  evaluated  as  a  function  of  normalized  distance  (WX)  into  the 
crystal.  They  can  be  computed  at  incremented  values  of  WX  for  any  specified 
initial  and  final  values. 
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The  velocity  (VS)  can  be  incremented  if  desired  (up  to  some  specified 
maximum  value,  VSMAX)  and  the  steps  in  ROOT  and  that  which  follows  are 
repeated  for  each  new  velocity.  Thus  it  is  possible  to  plot  the  determinant  as 
a  function  of  velocity.  After  VSMAX  is  reached  there  is  an  option  to  increment 
the  third  Euler  angle  (NU)  and  repeat  the  steps  from  SETCTE  on.  When  this 
has  been  completed  the  program  returns  to  read  in  new  CONST  DATA  if  the 
crystal  is  being  changed  or  to  read  in  new  INPUT  DATA  if  the  crystal  is  to  remain 
unchanged  but  the  orientation  is  to  be  changed.  After  all  data  from  both  sources 
has  been  exhausted  the  program  stops . 

Determination  of  F(VS) 

Subroutine  F  calls  subroutine  STRIP  to  compute  the  coefficients  of  the 
eighth  order  polynomial  equation  in  a.  *  Next  subroutine  CROOT  calculates 
the  8  roots  (ALFA(I),  I  =  1,8)  of  the  polynomial  equation  by  Muller's  method. 

If  the  medium  is  non-piezoelectric  the  solution  for  the  roots  involves  two 
extraneous  roots  which  are  rendered  useless  by  setting  them  equal  to  - 10-  lOj . 

The  roots  with  positive  real  part  are  chosen  (ALFAB(I),  1=1,  K) . 

If  the  medium  is  piezoelectric  and  the  number  of  roots  with  positive  real 
part  (K)  is  equal  to  4  the  program  proceeds  to  calculate  the  relative  amplitudes 
(3^  of  the  analysis  section)  of  the  displacement  and  potential  corresponding  to 
each  a.  These  amplitudes  are  referred  to  as  BETAB(I,J)  in  the  program.  The 
matrix  (ACAP,  A  for  simplicity)  of  coefficients  of  the  amplitudes  (pf^)  is 
set  up  for-  each  a.  If  the  crystal  is  not  hexagonal  non- degenerate  cases  are 
solved  by  setting  3^  =  1  and  solving  the  first  three  equations  of  the  system  for 
3>  '  i  =  1,2,3.  If  the  crystal  is  hexagonal  one  of  the  a's  naturally  leads  to  an 
ill-conditioned  system  if  the  first  three  equations  are  solved  for  3^,  3^, 
and  3~^  in  terms  of  3^ .  Thus  3^  is  set  equal  to  10  and  the  system 

composed  of  the  second,  third,  and  fourth  equation  are  solved  for  3x  ',  3x  \ 

(t)  (t)  *  J 

3^  ’ .  If  the  case  is  degenerate  the  3)  /!s  are  calculated  in  the  fashion  indicated 

in  the  analysis. 

If  K  <  4  the  procedure  for  calculating  the  3^'s  is  dependent  upon' the  value 
of  K .  If  K  5  1  the  case  terminates  since  no  solution  is  possible  with  only  one 
available  value  of  a.  If  K  >  1,  A^  and  are  investigated  to  see  if  they  are 
identically  zero. 


*5ee  Appendix  IV. 


V 
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If  either  or  ^>3  *s  not  ^t*entica^y  zero  the  case  cannot  be  degenerate. 


The  program  proceeds  in  one  of  two  possible  ways .  If  the  crystal  is  non¬ 
piezoelectric  and  K  =  3  the  pf  ^ 's  are  calculated  as  indicated  in  the  analysis 
/n  (is  1 

(i.e.  3V7  =  0,  3\  '  =  1  and  the  first  two  equations  of  the  system  are  solved  fi 
m  *  /n  & 

3^  ’  and  32 '  )•  If  either  K  i-  3  or  the  crystal  is  piezoelectric  the  case 
terminates .  This  is  due  to  the  fact  that  if  the  crystal  is  piezoelectric  and 
non- degenerate, four  a's  are  necessary  for  a  solution  in  the  general  case. 


If  both  and  ^23  are  equal  to  zero,  the  non-piezoelectric  case  is 
degenerate  and  is  treated  as  follows.  |A22|  is  calculated  for  each  value  of  a. 
For  K  =  2  it  is  necessary  that  |A22 1  be  non-zero  for  both  values  of  a  (due  to 
the  large  magnitude  of  the  individual  terms  in  A22  it  is  sufficient  to  compare 
|A22|  to  107).  If  |a22|  >  107  for  both  values  of  a  then  we  may  set 


3(2t,)=  0,  3^}  =  10'10 


,  and  3^  = 


A13 

TU) 

Au 


10 


-10 


Otherwise  the  case  is  terminated.  If  K  =  3  the  minimum  value  of  |A22|  is 
calculated  and  the  corresponding  a  is  discarded.  The  3's  are  then  calculated 
for  the  other  two  a's  from  the  above  formulas . 

If  A12  and  are  identically  equal  to  zero  and  the  crystal  is  piezoelectric 
the  program  proceeds  as  follows .  A^  is  tested  and  if  equal  to  zero  the  first 
degenerate  case  of  the  analysis  section  must  be  considered.  The  case  is 
terminated  if  K  =  2  but  if  K  =  3  a  check  is  made  of  |A22 1 .  If  |a22|  >  107  for 
all  three  a's,  the  p's  are  calculated  as  indicated  in  the  analysis.  If 
1^22 1  <  107  for  any  of  the  a's  the  case  is  terminated. 

If  A22  ?0a  check  of  and  A^  is  made.  If  they  are  not  both  identically 
equal  to  zero  the  case  is  terminated.  If  both  are  equal  to  zero  the  second 
degenerate  case  of  the  analysis  is  considered.  In  this  case  lA22A44  *  A24l 
(TERMJ  in  the  program)  is  calculated  for  each  a.  If  TERMJ  ^  10 for  two  of 
the  a's  the  (3j,  3^)  split  of  the  analysis  arises  and  the  P's  are  appropriately 
calculated.  If  TERMJ  <  10  5  for  two  of  the  a's  the  (32>  3^)  split  arises  and  the 
3's  a.e  appropriately  calculated.  Under  any  other  conditions  the  case  is 
terminated. 


Now  that  the  a's  and  3's  are  known  the  boundary  condition  matrix  (L) 
is  set  up  and  its  determinant  evaluated.  If  the  problem  of  a  conducting  elastic 
medium  in  contact  with  a  piezoelectric  or  elastic  medium  is  being  considered 
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the  a's  and  3's  appropriate  to  the  conductor  are  first  evaluated  then  the 
appropriate  boundary  condition  matrix  is  set  up  and  its  determinant  evaluated. 
This  completes  the  computation  of  F(VS)  whereupon  the  subroutine  is  exited  back 
to  the  main  program . 
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SETCTE  /  COMPUTE 
TRANSFORMED  PIEZO¬ 
ELECTRIC,  ELASTIC  AND 
DIELECTRIC  CONSTANTS 
(CE,  CC,  CT) 


VSO=VS 

NT=0 


- USED  IN  CROOT  FOR  THE  ORDERING 

OF  THE  ALPHAS 


ROOT  /USING  AN  INITIAL  ESTIMATE  OF 
VELOCITY,  VSO,  CALCULATE  (a)  THE 
VALUE  OF  THE  DETERMINANT  |f(VSO)| 
AT  VSO  (MAX  =  0)  OR  (b)  A  NEW 
VELOCITY,  VS,  FOR  WHICH  |f(VS)|  IS 
LESS  THAN  EPS  LON  (MAX  >  0) 


'  I  f(VSO)|  IS  COMPUTED 

IN  FUNCTION  F, 

- CALLED  BY  ROOT. 


COMPUTE  VSI=1/VS 

ALFAIj=  I/ALFAi 

TABULATE  INPUT  DATA,  TOGETHER 
WITH  COMPUTED  VALUES  OF  VS, 
|f(VS)L  VSI  AND  ALFAIj _ ’ 


IALFj>(.TRUE. 


(.FALSE.) 


NON-DEGENERATE  CASE  FOR 
WHICH  THERE  ARE  LESS  THAN 
4  a's  WITH  A  POSITIVE  REAL 
PART  -  NO  SURFACE  WAVE 
EXISTS  SO  THE  CASE  IS 
TERMINATED 


ICHECK>—(.TRUE 


(.FALSE.) 


KD 


<$x> 


GOLD  LITHIUM 


REGULAR  CRYSTAL 
PROBLEM 


COMPUTE  ^ETTABULATE 
UA(l)^UB£I),I=I,3 


3 


76 


EVALUATE  THE 
L  DETERMINANT 
FOR  A  GIVEN  F 


IALF=.  FALSE. 

ICASE=0 

ICB=0 

Kl=l 

K2=4 

Ll=l 

L2=16 

IB  1=1 

IB2=4 


NBETA=2:  ZERO  PIEZOELECTRIC 
NBETA=3;  PIEZOELECTRIC 

NBETA  IS  EVALUATED  IN  SETCTE 


STRIP  /  COMPUTE 
COEFFICIENTS  OF 
POLYNOMIAL 

POLY(I),  1=1,8 


-gflWTX  CALCULATE^ 
ROOTS  OF  POLYNOMIAL 


ALFA(I),I=1, 8 


PIEZOELECTRIC 


_  _  USES  MULLER'S  METHOD 
(MULLER, POL) 


ELIMINATE  THE  ALFA 
CORRESPONDING  TO  THE 
POTENTIAL 


>(.TRUE.)~ 


(.FALSE.) 


TABULATE  INTER- 
MEDIATE  ROOTS  OF 

31k. 


SELECT  ROOTS  WITH 
POSITIVE  REAL  PART 

ALFAB(I),I=1.  K 


<^>(«) 

<3 


4  ALPHAS 
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NON-DEGENERATE  CASE 
LESS  THAN  4  ALPHAS 


© 


9 


LESS  THAN  4  ALPHAS 
(K=NO.  OF  ALPHAS) 


FALSE.  )- 


PIEZOE  LECTRIC 


DEGENERATE 
4  ROW,  2  ZERO  CASE 


L 

!  . 


V 
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12  f  0  AND/OR 


^23*  0 


(.FALSER 


PIEZOELECTRIC 
NON- DEGENERATE 
LESS  THAN  4  a'S 


ZERO-PIEZOELECTRIC 
3  ALPHAS 

l 


\ 


m 


2. 

The  purpose  of  this  program  is  to  determine  the  complex  velocity  of 
propagation  of  surface  waves  at  the  interface  between  a  semi- infinite  fluid  and 
a  piezoelectric  substrate.  Input  parameters  which  define  the  fluid,  the 
piezoelectric  medium,  and  control  the  use  of  the  program  are  described  on  the 
following  pages . 

The  program  is  set  up  to  run  on  the  IBM  7094,  using  FORTRAN  IV  and 
Namelist  input  and  the  deck  set  up  is  identical  with  that  given  for  the  preceding 
program . 

As  in  the  preceding  program,  two  input  sections  are  required:  the  first 
describes  the  material  constants  of  the  piezoelectric  cryscal  and  the  second 
describes  the  orientation  of  the  crystal  as  well  as  other  information  pertinent 
to  the  execution  of  the  program.  The  first  data  set  is  called  CONST  and  is 
identical  with  that  presented  in  Section  IV .  1 .  The  following  is  a  definition  of 
each  input  parameter  in  the  "INPUT"  data  set.  Medium  A  refers  to  the 
dielectric  (elastic)  layer  and  medium  B,  to  the  piezoelectric  substrate. 


Surface  Waves  at  the  Boundary  Between  a  Fluid  Medium  and 
Piezoelectric  Crystal  —  Program  Description 
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Input  Name 
LAMDAB 

MUB 

NUB 

DNU 

NUMAX 

VS 

DVS 

VSMAX 

LAMDAA 

MUA 

RHOA 

RHOB 

EPSLON 


Equation 

Name 

IZES. 

Definition 

h 

real 

real 

)  Euler  angles  for  Medium  B. 

real  J 

Av 

real 

If  the  user  wishes  to  vary  v  (NUB)  from 
some  initial  value,  v,  to  some  final  value, 
vmaxi  in  steps  of  Av,  then  set  DNU 
equal  to  the  "steps  desired;  also,  see 

NUMAX.  (See  VSINC) 

V 

max 

real 

The  maximum  value  of  v  (see  DNU). 

Vmax  ^  only  used  when  DNU  i-  0 . 

V 

s 

real 

Initial  estimate  of  velocity.  This  initial 
value  will  be  used  to  find  a  final  velocity, 
vs ,  such  that  |f(Vs)  |  <  e,  where  e  is  input. 

Avs 

real 

If  the  user  does  not  care  to  use  the  root¬ 
finding  scheme  in  determining  a  final 
value  for  vs,  but  wishes,  instead,  to 
evaluate  the  determinant  |  f(vs)  |  for  particular 
values  of  vs  in  the  range  from  vs  to  vSmax 
in  steps  of  Avs,  then  set  DVS  equal 
to  the  step  size  desired.  (For  use  when 

MAX  =  0 .) 

vs 

max 

real 

Maximum  value  of  vs  to  be  used  when 

DVS  ^0. 

aa 

real 

\  Lame  constants  for  Medium  A. 

Ma 

real 

/ 

PA 

real 

Mass  density  of  Medium  A. 

real 

Mass  density  of  Medium  B. 

e 

real 

A  positive  number  used  as  a  convergence 
criterion  by  the  root*  finding  scheme 
(MAX  >0).  If  |f(vs)  |  <  e,  then  vs  is 
assumed  to  be  the  root  required. 

£o 

real 

Permittivity  of  free  space . 

EPSO 
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Input  Name 

Equation 

Name 

Type 

Definition 

EPSA 

eA 

real 

Dielectric  constant  for  Medium  A. 

WH 

uh 

real 

Frequency  thickness  product. 

WXA 

(UXA 

real 

Normalized  distance  into  Medium  A. 

DWXA 

An x. 

A 

real 

In  order  to  vary  xxA  (WXA)  from  an 
initial  value,  oxA ,  to  a  final  value 
uuxAmax  *  ^WXA  must  be  set  equal  to  the 
desired  step  size.  See  WXAMAX. 

WXAMAX 

ux. 

A 

max 

real 

The  maximum  value  ol  jlxa  to  be  used 
when  DWXA  t^O. 

WXB 

real 

Normalized  distance  into  Medium  B. 

DWXB 

real 

In  order  to  vary  u-xg  from  an  initial 
value,  uxg ,  to  a  final  value,  uuxg  , 

DWXB  must  be  set  equal  to  the  m 
step  size  desired.  See  WXBMAX. 

WXBMAX 

ukB 

max 

real 

The  maximum  value  of  uxr  to  he  used  when 
DWXB  i  0 . 

ICHECK 

.... 

logical 

ICHECK  =  .TRUE.  -  All  FINAL  ANSWERS* 

are  computed  in  addition  to  the  evaluation 
of  the  determinant  |f(Vg)| . 

ICHECK  =  .FALSE.  -  FINAL  ANSWERS 
are  not  computed;  evaluate  determinant 
oniy. 

MAX  ----  integer  Since  an  iteration  scheme  is  used  for 

convergence  for  a  final  root  vs,  there  must 
be  an  indication  of  how  many  iterations  are 
to  be  executed  before  divergence  is  assumed. 
Hence,  MAX  should  be  the  maximum  number  of 
iterations  the  user  wishes  the  program  to 
make  (usually  15).  If  MAX  is  set  to  zero 
(MAX  =  0)  the  determinant  |f(vg)  |  will  be 
evaluated  for  the  particular  vg  value  input  - 
the  iteration  scheme  will  not  be  used.  This 
option  may  be  useful  if  there  is  difficulty 
in  determining  the  range  in  which  vs  lies. 


*The  FINAL  RESULTS,  which  are  computed  for  all  values  of  WXA  (dielectric 
layer)  and  WXB  (piezoelectric  layer),  include  the  following: 

Stress  Components  Mechanical  Displacement 

Strain  Components  Electric  Potential  Magnitude 

Time  Average  Power  Flow  Electric  Field 

Electric  Displacement 
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Input  Name 
TITLE 


HXAGNL 


VSINC 


IOP 


REPEAT 


Equation 

Name  Type  Definition 

----  BCD  An  alphanumeric  array  of  24  characters 

or  less  used  to  describe  the  type  of 
crystal,  such  as  lithium  niobate.  This  is 
input  in  the  following  manner: 

TITLE  =  nH  name  of  crystal,  where  n  is  the 
number  of  characters  following  the  H 
(including  blanks).  For  example 

TITLE  =  6HQUARTZ 


logical  Parameter  which  controls  the  calculation 
of  betas  (S's)  for  a  hexagonal  crystal 
(such  as  zinc  oxide) 

.TRUE .  hexagonal  crystal  (use 
special  technique) 

.FALSE.  non- hexagonal  crystal 
(use  normal  procedure) 

logical  VSINC  =  .TRUE .  -  New  estimates  of 

initial  velocity  (vs)  are  computed  using  a 
linear  fit  to  the  two  previous  values . 

(Used  when  NUB  varies  over  a  range 

NUB,  NUB  +  DNU,  . . .  ,  NUMAX) 

VSINC  =  .FALSE.  -  The  same  initial 
estimate  of  velocity  is  usrd  for  all  values 
over  the  specified  range  of  NUB. 

integer  Degenerate  case  options  (used  when  exactly 
four  a's  with  positive  real  part  occur). 

IOP  =  1  —  seek  modes  of  propagation  of  the 
Quasi-Rayleigh  or  Sesawa  type. 

IOP  =  2  -  seek  modes  of  propagation  of 
Love  type. 


I 


1 


logical  REPEAT  is  a  logical  variable  and  in  its 
usage,,  can  take  only  one  value: 

.TRUE. 

If  there  are  no  more  cases  to  run  after  the 
current  case,  REPEAT  does  not  need  to  be 
input.  If  there  will  be  another  case  to 
follow,  but  the  crystal  coefficients  remain 
the  same,  then,  again,  REPEAT  does  not 
need  to  be  input.  However,  if  another  case 
is  to  be  run  and  the  coefficients  are 
different,  then  REPEAT  needs  to  be  input 
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Equation 

Input  Name  Name  Type 


Definition 


as  .TRUE.  This  means  that  the  $CONST 
data  will  have  to  be  input  again  (in  the 
other  cases  above,  $CONST  would  not  have 
to  be  input  again). 


The  following  input  parameters  are  all  logical  variables  which  are 
assumed  to  be  false  (.FALSE.)  in  the  program.  They  are  used  as  switches 
indicating  whether  or  not  intermediate  calculations  are  to  be  printed.  If  any 
one,  or  any  combination  of  these  parameters  are  input  as  true  (.TRUE.),  then 
certain  intermediate  data  will  print,  according  to  the  following: 


TABCTE 

ROOTS 

BETA 

DETERM 

COEFF 

TABL 

ALPHA 

ALL 


Print  the  constants  E,  C,  and  T  (the  transformed  piezoelectric, 
elastic,  and  dielectric  constants)  calculated  from  the  constants  P, 
G,  and  EPS . 

Print  the  roots  of  the  polynomial  each  time  they  are  calculated. 

Print  the  values  of  . 

Print  the  value  of  the  determinant. 

Print  the  coefficients  of  the  8'th  order  polynomial. 

Print  the  L  matrix  (or  P,  Q,  R,  etc.,  when  used). 

Print  the  roots  of  the  polynomial  (o^'s)  and  the  re-ordered  roots 
for  degenerate  cases . 

Print  all  of  the  above . 


Data  items  may  be  excluded  from  the  input  stream  at  the  discretion  of 
the  user.  Items  omitted  from  the  first  data  set  will  take  on  nominal  values 
(i.e.:  values  assigned  within  the  program).  Items  omitted  from  succeeding 
data  sets  will  take  on  previously  assigned  values.  The  following  is  a  complete 
list  of  nominal  values:* 


*A11  logical  parameters  have  a  nominal  value  of  .FALSE. 
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Parameter 

Nominal  Value 

LAMDAB 

0. 

MUB 

0. 

NUB 

0. 

DNU 

0. 

NUMAX 

0. 

VS 

3000. 

DVS 

0. 

VSMAX 

0. 

LAMDAA 

1.5  x  1011 

MUA 

2.85  x  1010 

RHOA 

1.888  x  104 

RHOB 

4700. 

EPSLON 

1.  x  10'11 

EPSO 

8.85  x  10'12 

EPSA 

44.25  x  10'12 

WH 

0. 

WXA 

0. 

DWXA 

0. 

WXAMAX 

0. 

WXB 

0. 

DWXB 

0. 

WXBMAX 

0. 

MAX  • 

15. 

TITLE 

LITHIUM  NIOBATE 

IOP 

l 

9.1 


The  computer  program  flow  described  below  shares  a  good  many  features 
of  the  program  described  in  Section  IV.  1.  As  in  the  preceding  programs  the 
nominal  data  values  are  set  up  first.  Next  the  piezoelectric  (P),  elastic  (G), 
and  dielectric  (EPS)  constants  are  read  in  (CONST  DATA).  Following  this 
the  rest  of  the  input  data  is  entered  (INPUT  DATA). 

At  this  point  subroutine  SETCTE  is  called  to  compute  the  transformed 
piezoelectric  (CE),  elastic  (CC),  and  dielectric  (CT)  constants .  Next  subroutine 
ROOT  is  called.  ROOT  performs  the  calculations  and  calls  the  subroutines 
necessary  to  perform  the  following  tasks: 

(a)  Compute  F(VS),  the  boundary  condition  determinant, 

(b)  implement  a  complex  root  finding  scheme  to  minimize 
| F(VS) |  as  a  function  of  complex  velocity  (VS), 

(c)  perform  the  perturbation  analysis . 

ROOT  calls  subroutine  F  to  perform  the  manipulations  necessary  to  compute 
the  boundary  condition  determinant.  F  will  be  discussed  in  some  detail  below. 

After  exiting  from  ROOT  and  returning  to  the  main  program  the  trial 
velocity  (VS)  can  be  incremented  if  it  is  desired  only  to  compute  F(VS)  at 
specified  velocities  rather  than  implement  the  root  finding  scheme  or  the  per¬ 
turbation  scheme.  When  this  has  been  completed  the  third  Euler  angle 
(NU)  can  be  incremented  and  all  of  the  steps,  from  the  point  where  SETCTE 
is  called  to  calculate  the  transformed  piezoelectric,  elastic,  and  dielectric 
constants,  are  repeated  for  each  value  of  NU . 

Following  this  the  program  returns  to  read  in  new  data  in  either  of 
the  following  fashions: 

(a)  If  the  crystal  is  to  remain  the  same  but  the  orientation  of 
the  crystal  face  is  changed  (new  Euler  angles)  the  new 
data  comes  from  INPUT  DATA. 

(b)  If  the  crystal  itself  is  changed  as  well  as  the  Euler  angles 
the  data  comes  from  CONST  DATA  and  INPUT  DATA  in  that 
order . 

When  all  the  data  has  been  exhausted  the  program  stops . 
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Subroutine  F 

Upon  entering  subroutine  F  a  check  is  made  to  determine  whether  the 
perturbation  scheme  is  to  be  used.  If  it  is  not  to  be  used,  VS  is  set  equal  to 
VSO  (the  input  value).  If  the  perturbation  scheme  is  to  be  used  a  loop  is  begun 
which  will  allow  the  numerical  derivatives  of  the  various  determinants  to  be 
taken  by  setting  VS  =  VSO  +  DEL,  VS  =  VSO  -  DEL  and  VS  =  VSO,  in  that  order. 
For  each  of  these  velocities  the  necessary  determinants  needed  to  evaluate  Avg 
(the  perturbed  velocity)  are  computed.  The  convergence  of  the  numerical 
derivatives  is  checked  by  noting  the  differences  in  the  computed  determinants 
and  Avg  as  DEL  is  allowed  to  take  on  subsequently  smaller  values. 

The  loop  is  begun  by  setting  counters  INIT  and  IDX  both  equal  to  1. 

DEL  =  EPS(INIT)  •  VSO  is  calculated  and  VS  is  set  equal  to  VSO  +  DEL. 

EPS  (INIT)  is  a  small  number  depending  upon  the  value  of  INIT.  Three  values 
EPS(l),  EPS(2),  and  EPS(3)  will  be  used  eventually  as  a  convergence  test  on  the 
numerical  derivatives.  The  program  now  proceeds  to  set  up  the  M,  N,  and  P 
matrices  as  a  function  of  VS  (the  P  matrix  is  the  cofactor  of  and  its  deter¬ 
minant  has  been  referred  to  as  K  in  the  analysis  section,  K  =  det(P) ). 

When  the  determinant  of  the  P  matrix  (DP(IDX))  has  been  evaluated  for  the 
first  time  (IDX  =  1)  a  logical  check  notes  that  IDX  i-  3  and  proceeds  to  evaluate 
the  determinant  of  the  N  matrix  (DN(IDX)).  At  this  point  another  logical  check 
notes  that  IDX  =  1  and  proceeds  to  set  VS  =  VSO  -  DEL  and  ID.<  =  2.  The 
program  then  returns  to  set  up  the  new  M,  N,  and  P  matrixes  and  evaluate 
DP(IDX)  =  DP(2).  The  logical  check  following  the  evaluation  of  DP(IDX)  again 
notes  that  IDX  t  3  and  therefore  evaluates  DN(IDX)  =  DN(2).  The  logical  check 
following  evaluation  of  DN(IDX)  now  notes  that  IDX  f  1  as  it  was  before.  The 
program  therefore  proceeds  to  calculate  the  numerical  derivatives  ((detN)#  and 
(detP) 7 )  by  the  approximate  formulas 


^DNPgNIT);  = 
(detN)7 


.DPPQNIT)^  = 
(detP) 7 


2  .  DEL 


Next  a  new  logical  check  notes  that  INIT  i  3  (it  is  still  1)  and  returns  to  the 
point  where  INIT  and  IDX  were  originally  initialized.  It  now  increments  INIT 
by  one  (i.e.  INIT  =  2  now)  and  resets  IDX  =  1.  DEL  =  EPS(2)  •  VSO  and 
VS  =  VSO  +  DEL  are  evaluated  and  all  the  steps  from  this  point  are  repeated 
until  finally  the  numerical  derivatives  are  again  taken  with  the  new  value  of  DEL . 
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Again  the  logical  check  at  this  point  notes  INIT  t  3  (INIT  =  2)  and  again  the 
point  of  initialization  of  INIT  and  IDX  is  entered.  INIT  is  again  incremented  by 
one  (INIT  =  3  now)  and  IDX  is  reset  to  1.  DEL  =  EPS(3)  •  VSO  and  VS  =  VSO  + 
DEL  are  evaluated  again  and  the  subsequent  steps  again  taken  until  the 
numerical  derivatives  are  taken  again  at  this  third  value  of  DEL.  The  logical 
check  following  the  evaluation  of  the  numerical  derivatives  now  notes  that 
INIT  =  3  and  thus  sets  IDX  =  3  and  returns  to  the  point  where  VS  was  first  set 
equal  to  VSO.  The  perturbation  loop  has  been  bypassed  and  VS  =  VSO  is  now 
used  to  evaluate  M,  N,  P  matrix  elements .  When  the  determinant  of  the 
P  matrix  (DP(IDX) )  has  been  evaluated  the  subsequent  logical  check  notes 
that  IDX  =  3  and  all  the  quantities  needed  have  been  evaluated.  It  therefore 
proceeds  to  print  out  the  results.  After  this  the  main  program  is  re-entered 
to  look  for  new  cases . 

The  steps  for  any  particular  velocity  (VS)  taken  to  evaluate  the  elements 
of  the  M,  N,  or  P  matrices  will  now  be  discussed.  First  quantities 

VSQ  =  (VS)2  and  {rvsQ  ^RHOL  ^  VSQ  }  ^  set  UP*  RH0L  is  the  mass 

density  of  the  liquid  while  RHOB  is  the  mass  density  of  the  crystal.  Next  sub¬ 
routine  STRIP  is  called  to  compute  the  coefficients  of  the  eighth  order  poly¬ 
nomial  in  a  just  as  was  done  in  the  first  program.  Subroutine  CROOT  is  now 
called  to  calculate  the  roots  (a)  of  the  polynomial.  If  a  non-piezoelectric  case 
is  being  considered  the  two  extraneous  roots  are  eliminated  as  in  the  first 
program.  The  roots  with  positive  real  part  are  now  selected  (ALFAB(I)  1=1,  K). 
If  K  ^  1  the  case  terminates .  If  K  =  2  or  3  checks  are  made  of  various  elements 

of  the  matrix  of  coefficients  (A)  of  the  relative  field  amplitudes  (p{^).  A.  „  and 
*  t  \.L 

A22  are  tested  to  see  if  they  are  identically  zero.  If  they  are  not  both 
identically  zero  a  degenerate  case  cannot  exist.  If  the  crystal  is  piezoelectric, 
then,  there  are  insufficient  a's  and  the  case  terminates.  If  the  crystal  is  non¬ 
piezoelectric  and  K  =  2  the  case  terminates  also  (insufficient  a's).  If  the  crystal 
is  non- piezoelectric  and  K  =  3  the  appropriate  g's  are  calculated  as  indicated 
in  the  analysis  of  the  first  problem.  If,  however,  A^  and  A20  are  both 
identically  zero  and  a  non-piezoelectric  case  is  being  considered,  it  is  a 
degenerate  case  and  is  so  treated.  If  the  crystal  is  piezoelectric  a  check  of 
A24  is  made.  If  is  zero  and  K  =  2  the  program  terminates  but  if  K  =  3 
the  first  degenerate  case  of  the  analysis  section  of  the  first  problem  has 
arisen  (Pp  gg,  P^  ^  0,  P2  =  0)  and  is  treated  appropriately. 
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If  is  not  identically  zero  a  check  of  and  A^  is  made.  If  they  are 
not  both  equal  to  zero  the  case  terminates  since  no  degenerate  case  has  arisen. 
If  both  are  identically  zero  the  second  degenerate  case  of  the  analysis  section  of 
the  first  prohLem  has  arisen  and  is  treated  accordingly. 

If  K  =  4  and  a  piezoelectric  case  is  being  considered  or  K  =  3  and  a 
non-piezoelectric  case  is  being  considered  the  P's  are  derived  in  the  fashion 
indicated  in  the  first  program.  After  the  P's  have  been  computed  the  quantity 

is  computed  where  LAMDAL  (A^)  is  the  modulus  of 
compression  of  the  fluid.  If  no  perturbation  scheme  is  to  be  used  the  program 
computes  ALFAL  =  VARAD '  and  tests  to  see  if  the  imaginary  part  of 
ALFAL  (Im  (ALFAL) )  is  equal  to  zero.  If  Im  (ALFAL)  =  0  the  negative  square 
root  is  taken;  otherwise  the  root  is  taken  so  that  Im  (ALFAL)  <  0  (this  was 
necessary  in  order  that  a  velocity  with  positive  imaginary  part  result  as  a 
solution).  The  elements  of  the  M  matrix  are  set  up  next  and  the  determinant 
evaluated  (det(M)  =  F(VS)).  If  the  perturbation  scheme  is  to  be  used  the  various 
matrices  indicated  are  set  up  as  indicated  earlier  and  the  velocity  perturbation 

Av  is  calculated. 

s 
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) 


100 


(.TRUE.) 


(  PRINTOUT 
V  RE-ORDBRED  g'a 

<5 


DEGENERATE 
4  ROW,  2  ZERO 
4  a's 


ICASE=2 


RE-ORDER  a's 
AND  CALCULATE  8's 


DEGENERATE 
4  ROW,  2  ZERO 

<4  a's 


RE-ORDER  a's 
AND  CALCULATE  8's 


I 


X 

.FALSB. 


PRINTOUT 

BBTAB© 

1=1,4 


ARAD*1  - 


ALFAL=-ALFAL 


.TRUE.) - , 

PERTURBATION  SCHEME 


(.FALSB.) 

* 

ALFAL= 


«  <fm(ALFAL)0>(=) 


IDX:3>(=)- 


&)  I  ALFAL=  ARAD] 

4>^T“^ 


ALFAL=  VaAa£)  ' 


BM(4, 6)={RVSQ/ALFAL)  •  1010 


- M4, 6 


CALCULATE 

BMfl.J) 

1=1,6 

J=K1.K2 


3.  Isotropic,  Elastic,  Dielectric  Layer  on  Piezoelectric  Substrate  - 

Program  Description 

The  purpose  of  this  program  is  to  determine  the  complex  velocity  of 
propagation  of  surface  waves  at  the  interface  between  a  semi- infinite  fluid  and 
a  piezoelectric  substrate.  The  necessary  input  and  control  parameters  are 
described  on  the  following  pages . 

As  with  the  proceeding  program,  this  program  is  set  up  to  run  on  the 
IBM  7094,  using  FORTRAN  IV  and  Namelist  input  and  the  deck  set  up  is  again 
identical  with  that  described  in  Section  IV.  1.  Again,  two  input  sections  are 
required:  the  first  describes  the  material  constants  of  the  piezoelectric  crystal 
and  the  second  describes  the  orientation  of  the  crystal  as  well  as  other 
information  pertinent  to  the  execution  of  the  program.  The  first  data  set  is 
called  CONST  and  is  identical  with  that  described  in  Section  IV.  1.  The  second 
data  set  is  called  "INPUT, "  and  the  following  is  a  definition  of  each  input 
parameter.  Medium  A  refers  to  the  dielectric  (elastic)  layer  and  medium  B, 
to  the  piezoelectric  substrate. 
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Input  Name 

Equation 

Name 

Type 

Definition 

LAMDAB 

*B 

real  ^ 

MUB 

Hb 

real 

)  Euler  angles  for  Medium  B. 

NUB 

VB 

real  J 

DNU 

Av 

real 

If  the  user  wishes  to  vary  v  (NUB)  from 
some  initial  value,  v,  to  some  final  value, 
vmax>  *n  steps  of  Av,  then  set  DNU 
equal  to  the  steps  desired;  also,  see 

NUMAX.  (See  VSINC) 

NUMAX 

V 

max 

real 

The  maximum  value  of  v  (see  DNU). 
vmax  is  only  used  when  DNU  7*  0 . 

VS 

V 

s 

real 

Initial  estimate  of  velocity.  This  initial 
value  will  be  used  to  find  a  final  velocity, 
vs ,  such  that  |f(Vg)  |  <  e,  where  e  is  input. 

DVS 

Av 

s 

real 

If  the  user  does  not  care  to  use  the  root¬ 
finding  scheme  in  determini  lg  a  final 
value  for  vs,  but  wishes,  instead,  to 
evaluate  the  determinant  |f(vs)|  for  particular 
values  of  vs  in  the  range  from  vg  to  vs 
in  steps  of  Avs,  then  set  DVS  equal  max 
to  the  step  size  desired.  (For  use  when 

MAX  =  0.) 

VS  MAX 

V 

s 

max 

real 

Maximum  value  of  vs  to  be  used  when 

DVS  7*0. 

LAMDAA 

XA 

real 

\  Lame  constants  for  Medium  A. 

MUA 

^A 

real  y 

f 

RHOA 

PA 

real 

Mass  density  of  Medium  A. 

RHOB 

PB 

real 

Mass  density  of  Medium  B. 

EPS  LON 

e 

real 

A  positive  number  used  as  a  convergence 
criterion  by  the  root- finding  scheme 
(MAX  >  0) .  If  |f(vs)  j  <  e,  then  vs  is 
assumed  to  be  the  root  required. 

EPSO 

eo 

real 

Permittivity  of  free  space. 
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Input  Name 

Name 

Type 

Definition 

EPSA 

eA 

real 

Dielectric  constant  for  Medium  A. 

WH 

uh 

real 

Frequency  thickness  product. 

WXA 

“*A 

real 

Normalized  distance  into  Medium  A. 

DWXA 

Aoxa 

real 

In  order  to  vary  udc^  (WXA)  from  an 
initial  value,  aix^ ,  to  a  final  value 
ouxa  »  DWXA  must  be  set  equal  to  the 

desired  step  size.  See  WXAMAX. 

WXAMAX 

UUXa 

Amax 

real 

The  maximum  value  of  uac^  to  be  used 
when  DWXA  i  0. 

WXB 

“*B 

real 

Normalized  distance  into  Medium  B. 

DWXB 

Au*b 

real 

In  order  to  vary  tuxg  from  an  initial 
value,  tttqj ,  to  a  final  value,  wcg_„v , 

DWXB  must  be  set  equal  to  the 
step  size  desired.  See  WXBMAX. 

WXBMAX 

u«b 

max 

real 

The  maximum  value  of  uscg  to  be  used  when 
DWXB  f  0 . 

ICHECK 

* 

logical 

ICHECK  =  .TRUE.  -  All  FINAL  ANSWERS* 
are  computed  in  addition  to  the  evaluation 
of  the  determinant  |f(Vs)| . 

ICHECK  =  .FALSE.  -  FINAL  ANSWERS 
are  not  computed;  evaluate  determinant 
only. 

MAX 

— 

integer 

Since  an  iteration  scheme  is  used  for 

convergence  for  a  final  root  vs,  there  must 
be  an  indication  of  how  many  iterations  are 
to  be  executed  before  divergence  is  assumed. 
Hence,  MAX  should  be  the  maximum  number  of 
iterations  the  user  wishes  the  program  to 
make  (usually  15).  If  MAX  is  set  to  zero 
(MAX  =  0)  the  determinant  |f(7g)  |  will  be 
evaluated  for  the  particular  vg  value  input  - 
the  iteration  scheme  will  not  Be  used.  This 
option  may  be  useful  if  there  is  difficulty 
in  determining  the  range  in  which  vs  lies . 


*The  FINAL  RESULTS,  which  are  computed  for  all  values  of  WXA  (dielectric 
layer)  and  WXB  (piezoelectric  layer),  include  the  following: 

Stress  Components  Mechanical  Displacement 

Strain  Components  Electric  Potential  Magnitude 

Time  Average  Power  Flow  Electric  Field 

Electric  Displacement 
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Input  Name 
TITLE 


HXAGNL 


VSINC 


IOP 


REPEAT 


Equation 

Name  Definition 

— -  BCD  An  alphanumeric  array  of  24  characters 

or  less  used  to  describe  the  type  of 
crystal,  such  as  lithium  niobate.  This  is 
input  in  the  following  manner: 

TITLE  =  nH  name  of  crystal,  where  n  is  the 
number  of  characters  following  the  H 
(including  blanks).  For  example 

TITLE  =  6HQUARTZ 


logical  Parameter  which  controls  the  calculation 
of  betas  (3's)  for  a  hexagonal  crystal 
(such  as  zinc  oxide) 

.TRUE .  hexagonal  crystal  (use 
special  technique) 

.FALSE.  non -hexagonal  crystal 
(use  normal  procedure ) 

logical  VSINC  =  .TRUE .  -  New  estimates  of 

initial  velocity  (Vg)  are  computed  using  a 
linear  fit  to  the  two  previous  values . 

(Used  when  NUB  varies  over  a  range 

NUB,  NUB  +  DNU,  ...  ,  NUMAX) 

VSINC  =  .FALSE.  -  The  same  initial 
estimate  of  velocity  is  used  for  all  values 
over  the  specified  range  of  NUB. 

integer  Degenerate  case  options  (used  when  exactly 
four  a's  with  positive  real  part  occur). 

IOP  =  1  -  seek  modes  of  propagation  of  the 
Quasi-Rayleigh  or  Sesawa  type. 

IOP  =  2  -  seek  modes  of  propagation  of 
Love  type. 


logical  REPEAT  is  a  logical  variable  and  in  its 
usage,  can  take  only  one  value: 

.TRUE. 

If  there  are  no  more  cases  to  run  after  the 
current  case,  REPEAT  does  not  need  to  be 
input.  If  there  will  be  another  case  to 
follow,  but  the  crystal  coefficients  remain 
the  same,  then,  again,  REPEAT  does  not 
need  to  be  input.  However,  if  another  case 
is  to  be  run  and  the  coefficients  are 
different,  then  REPEAT  needs  to  be  input 


110 


Equation 

Input  Name  Name  Type  Definition 

as  .TRUE.  This  means  that  the  fCONST 
data  will  have  to  be  input  again  (in  the 
other  cases  above,  $CONST  would  not  have 
to  be  input  again). 

The  following  input  parameters  are  all  logical  variables  which  are  assumed 
to  be  false  (.FALSE.)  in  the  program.  They  are  used  as  switches  indicating 
whether  or  not  intermediate  calculations  are  to  be  printed.  If  any  one,  or  any 
combination  of  these  parameters  are  input  as  true  (.TRUE.),  then  certain 
intermediate  data  will  print,  according  to  the  following: 

TABCTE  Print  the  constants  E,  C,  and  T  (the  transformed  piezoelectric, 
elastic,  and  dielectric  constants)  calculated  from  the  constants  P, 

G,  and  EPS . 

ROOTS  Print  the  roots  of  the  polynomial  each  time  they  are  calculated. 

BETA  Print  the  values  of  ^ . 

DETERM  Print  the  value  of  the  determinant. 

COEFF  Print  the  coefficients  of  the  8'th  order  polynomial. 

TABL  Print  the  L  matrix  (or  P,  Q,  ft,  etc.,  when  used). 

ALPHA  Print  the  roots  of  the  polynomial  (cig's)  and  the  re-ordered  roots 

for  degenerate  cases . 

ALL  Print  all  of  the  above . 

Data  items  may  be  excluded  from  the  input  stream  at  the  discretion  of 
the  user.  Items  omitted  from  the  first  data  set  will  take  on  nominal  values 
(i.e.:  values  assigned  within  the  program).  Items  omitted  from  succeeding 
data  sets  will  take  on  previously  assigned  values .  The  following  is  a  complete 
list  of  nominal  values:  * 

*A11  logical  parameters  have  a  nominal  value  of  .FALSE. 
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Parameter 

Nominal  Value 

LAMDAB 

0. 

MUB 

0. 

NUB 

0. 

DNU 

0. 

NUMAX 

0. 

VS 

3000. 

DVS 

0. 

VSMAX 

0. 

LAMDAA 

1.5  x  1011 

MUA 

2.85  x  1010 

RHOA 

1.888  x  104 

RHOB 

4700. 

EPSLON 

1.  x  10"11 

EPSO 

8.85  x  10'12 

EPSA 

44.25  x  10'12 

WH 

0. 

WXA 

0. 

DWXA 

0. 

WXAMAX 

0. 

WXB 

0. 

DWXB 

0. 

WXBMAX 

0. 

MAX 

15. 

TITLE 

LITHIUM  NIOBATE 

IOP 

1 
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The  following  is  a  description  of  the  computer  program  flow  diagram 
provided  at  the  end  of  this  section. 

The  computer  program  for  this  problem  shares  many  common  features 
with  the  programs  described  in  the  preceding  sections .  Again  the  nominal  data 
values  are  set  up  first.  The  piezoelectric  (P),  elastic  (G),  and  dielectric  (EPS) 
constants  are  read  in  next  (CONST  DATA) .  Following  this  the  rest  of  the  input 
data,  is  entered  (INPUT  DATA) . 

Subroutine  SETCTE  computes  the  transformed  piezoelectric  (CE),  elastic 
(CC),  and  dielectric  (CT)  constants.  Next,  subroutine  ROOT  performs  the 
calculations  and  calls  the  subroutines  necessary  to  computer  F(VS),  the  boundary 
condition  determinant.  ROOT  will  either  minimize  F(VS)  (root  finding  scheme) 
or  simply  compute  it  at  velocity  VS  depending  on  the  setting  of  the  counter  MAX. 
Upon  returning  to  the  main  program  an  option  to  increment  VS  followed  by  ai 
option  to  ii.'rement  the  third  Euler  angle  (NU)  is  available  as  in  the  first  two 
programs .  As  NU  is  incremented  it  is  also  possible  to  update  the  initial  velocity 
(VS)  if  the  root  finding  scheme  is  being  employed  so  that  a  closer  initial  estimate 
will  be  had  as  NU  varies .  The  setting  of  a  logical  variable  (VSINC)  dictates 
whether  this  updating  scheme  is  to  be  used  or  not. 

When  the  correct  velocity  of  propagation  has  been  found  (either  from  the 
root  finding  scheme  or  from  plotting  F(VS)  as  a  function  of  velocity)  the  relative 
amplitudes  of  the  partial  surface  wave  fields  are  calculated  (ETA(l),  ETA(2), 
e‘-c.).  Next  the  various  quantities  of  interest  are  calculated  in  medium  A  (the 
dielectric)  as  a  function  of  normalized  distance  (WX^)  into  the  medium.  Following 
this  the  same  parameters  are  calculated  in  medium  B  (crystal)  as  a  function  of 
normalized  distance  (WXg)  into  the  crystal.  For  both  media  an  incrementation 
scheme  may  be  used  to  increase  WX^  or  WXg  in  equal  increments  (DWXA  or 
DWXB)  from  some  initial  value  to  some  final  value. 

The  quantities  of  interest  mentioned  above  are  as  follows: 

a)  Mechanical  Displacement  (magnitude  and  phase)  referred  to 
as  MAGU(I)  and  PHASEU(I),  1=1  to  3  in  the  program. 

b)  The  electric  potential  (magnitude  and  phase)  referred  to  as 
MAGU(4)  and  PHASEU(4). 

c)  The  time  average  power  flow  computed  in  the  subroutine 
P1FUN. 


d) 

e) 

f) 
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The  stresses  computed  in  the  subroutine  TFUN. 

The  strains  computed  in  subroutine  SFUN. 

The  electric  fields  (El,  E3)  and  electric  displacement  (D1,D2, 
and  D3) . 


Calculation  of  F(VS) 

Subroutine  ROOT  calls  subroutine  F  to  evaluate  the  determinant  of  the 
boundary  condition  matrix.  F  first  calls  subroutine  STRIP  to  calculate  the 
coefficients  of  the  eighth  order  equation  in  a.  Next  subroutine  CROOT 
computes  the  roots  of  the  polynomial  (ALFA(I),  1=1  to  8).  The  roots  with 
positive  real  parts  (ALFAB(I),  1=1  to  K)  are  selected  as  in  the  other  programs 
and  the  extraneous  roots  in  the  non-piezoelectric  case  are  eliminated. 


If  K  =  0  the  case  terminates  since  no  solution  is  possible.  If  K  ±  0  a 
search  for  degeneracies  follows.  K  =  1  presents  a  possibility  now  which  was 
not  present  in  the  previous  problems. *  First  A^  and  A^  are  checked  (A 
is  the  matrix  of  the  coefficients  of  the  unknown  amplitudes  3^  as  in  the 
previous  problems).  If  A^2  and  A^  are  not  both  equal  to  zero  the  case  cannot 
be  degenerate.  A  check  is  made  to  see  if  the  following  two  conditions  both 
hold: 


a)  The  case  is  non-piezoelectric 

b)  K  t  3 


If  both  of  these  conditions  hold  the  case  terminates .  If  it  is  not  true  that 
boui  hold  then  a  test  is  made  to  see  if  the  following  two  conditions  hold: 


a)  The  case  is  piezoelectric 

b)  K  4  4  . 

If  both  of  these  conditions  hold  the  case  terminates.  Otherwise  the 
program  continued  for  now  we  must  have  either  a  non-piezoelectric  case  with 
K  =  3  or  a  piezoelectric  case  with  K  =  4,  both  of  which  are  proper  non¬ 
degenerate  cases. 

If  A12  and  A22  are  both  identically  zero  and  the  case  is  non-piezoelectric, 
the  program  proceeds  to  the  section  where  degenerate,  non-piezoelectric  cases 


*Page  37  of  analysis. 
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are  handled.  If,  however,  the  case  is  piezoelectric  X^  is  checked.  If  X^  is 
zero  the  first  type  of  degenerate  case  of  the  analysis  section  arises  and  the 
program  proceeds  to  that  section  which  treats  such  cases .  If  A24  is  not 
ltoUcaU,  zero  thee  end  are  checked.  1 1  they  are  identically  zero,  the 
second  degenerate  case  of  the  analysis  section  arises  and  the  program  proceeds 
to  the  section  that  treats  these  cases .  If  they  are  not  both  zero  die  program 
-  goes  through  the  test  mentioned  above  (i.e.  is  it  simultaneously  true  that  (a) 
the  case  is  piezoelectric  and  (b)  K  ^  4. 

If  (a)  and  (b)  are  not  simultaneously  true  then  we  are  dealing  with  a  non- 
degenerate,  piezoelectric  case  and  the  program  proceeds  accordingly. 

Non- degenerate  Cases 

The  X  matrix  is  set  up  for  each  value  of  a  (k  =  1,  K4)  where  K4  =  4 
for  piezoelectric  cases  and  K4  =  3  for  non-piezoelectric  cases.  If  the  case  is 
non-piezoelectric  the  program  sets  04  =  0,  0g  =  10  and  solves  the  first 
two  equations  for  ^  and  02>  If  the  crystal  is  piezoelectric  and  not  hexagonal 
04  is  set  equal  to  1  and  the  first  three  equations  of  the  set  are  solved  for  0^, 

0O,  and  0,.  If  the  crystal  is  piezoelectric  and  hexagonal  0.  is  set  equal  to 

10  0  A 
10  and  the  second,  third,  and  fourth  equations  of  the  set  are  solved  for  02, 

03,  and  04. 


Degenerate  Case  1 

This  case  is  characterized  by  a  decoupling  of  the  equations  for  0^  so 

that  three  of  the  equations  involve  0^,  0g,  and  04  only  and  one  involves  02  only 

as  discussed  in  the  analysis.  If  there  are  four  a's  with  positive  real  part  (K  =  4) 

the  program  calculates  |A„0|  for  each  a  and  determines  which  a  leads  to  a 

zz  m 

minimum  of  this  function.  This  now  becomes  a'  while  the  other  a's  become 
a^\  and  a^ .  The  program  proceeds  to  work  with  the  relabeled  a's 
and  computes  the  0's  as  follows: 


0iX)  =  10 


10 


0p  =  0 


i  =  1,3,4; 


ef  -  o . 


=  i 


ad)  13  A34  A14  a33 

=  WOT" 

“n  “io 


and  0<f>  =  “13  ~14 


411  33 


l13 


A13  A14  A11  A34 

t(l)  W .  #)2 

A11  a33  13 


l  -  2, 3, 4.  The  program  now  proceeds  to  set  up  either  the  M(10  x  10)  or 
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N(3  x  3)  matrix  discussed  in  the  analysis  and  evaluates  its  determinant. 

If  there  are  less  than  four  a's  with  positive  real  part  (K  <  4)  the  program 
calculates  I  -^22 1  *or  eac^  a  anc*  counts  ^e  number  (Nl)  of  a's  for  which 
!  A22 1  <  10  ^  (this  is  close  enough  to  zero  considering  the  magnitude  of  the 
individual  terms  in  A ^ If  K  =  1  and  Nl  =  0  the  case  terminates  (case  lc2). 

If  K  =  1  and  Nl  =  1  the  program  sets  3^  =  10  ^  3p^  =  0  i  =  1,3,4  and  then 
proceeds  to  set  up  the  N  matrix  and  evaluate  its  determinant  (case  lcl). 

If  K  =  2  and  Nl  =  0  the  case  terminates  (case  lb3).  If  K  =  2  and  Nl  =  1 

the  a  that  yielded  |A9<j|  <  10  ^  becomes  a^.  The  program  now  sets  3^  =  10  ^ 

(1)  1 
and  '  =  0  i  =  1, 3, 4  and  then  proceeds  to  set  up  the  N  matrix  and  evaluate 

its  determinant  (case  lbl).  If  K  =  2  and  Nl  =  2  this  represents  an  impossible 

case  and  the  case  terminates  (lb2). 

If  K  =  3  and  Nl  =  0  then  all  three  roots  correspond  to  the  (3p  3g,  34) 
split.  The  a's  become  a^,  and  The  3's  are  calculated  as  they  are 
in  the  four  a  case  for  cS2\  and  a^.  Only  the  M  matrix  can  be  set  up  and 
evaluated  for  this  case  (case  lal).  If  K  =  3  and  Nl  =  1  the  corresponding  a 
becomes  a^  and  3^  =  10  ^  while  3^  =  0  i  =  1, 3, 4.  Only  the  N  matrix 
is  set  up  and  evaluated  (case  la2).  If  K  =  3  and  Nl  =  2  or  more  the  case 
terminates  since  this  is  physically  impossible. 


Degenerate  Case  2 

This  case  is  characterized  by  a  decoupling  of  the  equations  for  3^  so 
that  two  of  the  equations  involve  3j  and  3g  only  while  the  other  two  involve 
39  and  3,  only.  If  there  are  four  a's  with  positive  real  part  (K  =  4)  the 

|  A  A  A  2  I  .  ('Vl 

program  calculates  I  A22^44"A24'  *or  eac^  a*  ^  va*ues  aV  *  which 

lead  to  minimum  values  of  jA99A„A-  A 9  J  are  selected  and  become  a^  and 

f4)  ^  ^q(l)  (2) 

a  .  The  other  (2)  values  of  a  become  a'  ’  and  av  .  The  program  then 

computes  the  3's  as  follows: 
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The  program  now  proceeds  to  set  up  either  the  P  or  the  Q  matrix  and  evaluates 
its  determinant. 

If  there  are  less  than  four  a's  with  positive  real  part  (K  <  4)  the  program 
proceeds  as  follows:  , 

If  K  =  1  the  case  terminates  (case  2c) .  If  K  =  2  or  3  the  program  computes 
the  quantity  1^22^44"  ^24  ^  *or  eac^  a  anc*  counts  the  number  (II)  of  a's  for 
which  this  quantity  <10’5  and  the  number  (12)  of  a's  for  which  this  quantity 
£10  10  ®  is  close  enough  to  zero  due  to  the  magnitudes  of  the  individual 

terms  in  the  quantity.  If  K  =  3  and  II  =  2  the  a's  become  and  a^  and  the 
P's  are  calculated  as  they  were  above  for  a^  and  a^.  Only  the  Q  matrix  is 
set  up  and  evaluated  (case  2al).  If  K  =  3  and  12  =  2  the  a's  become  a^  and 
a^  and  the  P's  are  calculated  as  above  for  and  a^ .  Only  the  P  matrix  is 
set  up  and  evaluated  (case  2a2).  If  K  =  3  while  II  ^  2  and  12  ^  2  the  case 
terminates  (case  2a3).  If  K  =  2  and  II  =  2  the  P's  are  handled  as  above  (case  2bl). 
If  K  =  2  and  12  =  2  the  P»3  are  likewise  handled  as  above  (case  2b2).  If  K  =  2 
while  II  t  2  and  12  J-  2  the  case  terminates  (case  2b3). 
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3 2  only.  If  there  are  three  a's  with  positive  real  part  I-A.22 1  is  eva*uate£*  f°r 
each  a.  The  a  leading  to  the  minimum  value  of  |A99|  becomes  while  the 
others  become  cP^  and  a^.  The  program  sets  =  10  3^  =  0  i  =  1 

and  3;  3^  =  0,  3^  =  10"10,  3^  =  -A^/A^  •  10‘10  1=2  and  3.  Either 
the  R  or  N  matrix  can  be  set  up  and  evaluated  depending  on  the  type  of  wav-.; 
sought. 

If  there  are  two  a's  with  positive  real  part  (^2 1  is  evaluated  for  both 

a's  and  compared  with  107.  (This  is  close  enough  to  zero  considering  the 

magnitudes  of  the  individual  terms  of  A99).  If  |  A99 1  >  10  7  for  both  a's  they 
(2)  (3) 

become  a'  and  av  7  and  the  3's  are  calculated  as  above.  Only  the  R  matrix 

^  7 

is  set  up  and  its  determinant  evaluated  (case  xal).  If  |A99|  £  10 '  for  one  of  the 
fl) 

a's  this  becomes  a'  7  and  the  3's  are  the  same  as  above.  Only  the  N  matrix  is 
set  up  and  its  determinant  evaluated  (case  xa2).  If  (A^ 1  s  107  for  both  a's 
the  case  is  terminated  (case  xa3). 

If  there  is  one  a  with  positive  real  part  |  A22 1  is  evaluated  and  compared 
to  107.  If  IA22I  £  107  the  program  sets  3^  =  10  ^  Pjf^  =  0  i  =  1  and  3. 

Only  the  N  matrix  is  set  up  and  its  determinant  evaluated  (case  yal).  If 
I A22 1  >  ^  the  case  is  terminated  (case  ya2). 
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SBTCTE  /  CALCULATE 
"TRAMS FORMED  PIEZOELECTRIC  (CB), 
ELASTIC  (CC)  AND  DIELECTRIC  (CT) 
CONSTANTS 


I 


vso=vs 

NT=0 


ROOT  / 


INITIALIZE  CALCULATION  OF 
ROOTS  IN  CROOT  (MULLER, POL) 


CALCULATE 


a)  |f(v8o)  I  FOR  MAX=0 

b)  VS  AND  | f(vs) |  <C  FOR  MAX 


>0 


(.FALSE.) 

4 


u 

(.TRUE.) 

£Z 

NUB=SNU 

@ 
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CALCULATE 

ELECTRIC  FIELD 
E1,E3 

ELECTRIC  DISPLACEMENT 
Dl,  D2,  D3 


PRINT:  Wx,  TOGETHER! 
WITH  FINAL  RESULTS  1 


WX=WX+DW) 


<JMED^>(=2) 

(=D 

MEDIUM  A 


<f*VXAfr> 


MEDIUM  B 


n WXMX* 


CALCULATE  FINAL  RESULTS 
MEDIUM  B-PIEZOELECTRIC 

_ i _ 

WX=WXB 


WX=WX+DWXB 


^X:WXBMAJ 


►(>) 


IMED=2 

CALCUIXTE  FINAL 
RESULTS,  AS  FOR 
MEDIUM  A 
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DIELECTRIC 


1 


degen=o 

IDET=0 

JP=2 

1ALF=.  FALSE. 

I CASE =0 

ICB=0 

Kl=l 

K2=4 

Ll=l 

L2=16 

IB  1=1 

IB2=4 


~5 


STRIP 


T 


CALCULATEN 


COEFFICIENTS  OF 
POLYNOMIAL 
-  POLYOL  1=1.  9 


_croot/  CALCULATE  \ 
ROOTS  OF  POLYNOMIAL  \ 

ALFA(I),I=1, 8  / 

<^E20ELEC™^>{NO)  ■ 


(YES) 


ELIMINATE  ROOT 
CORRESPONDING  TO 
THE  POTENTIAL 


(.TRUE) 


IA(I)=I 

1=1,4 


(.FALSE.) 

— *4 - 


,PR1NJ  intermediate 

ROOTS  OF  POLYNOMIAL 
ALFa(1),  1=1.3 


SELECT  ROOTS 
WITH  POSITIVE 
REAL  PART 


ALFAB(I).I=1.K 


Q) — 0 


(=>  — @ 
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5 

f 

| 

} 

I 

I 

i 

! 


?  ] 


1 


(P-fP-lO’";  *>-  -10 

A11 


,-10 


.  3<2>  = 


.H2) 

13  in- 10 


41>=42>  =  0  ; 


4M2)=°  ; 

_K3) 

b(3)_3(4)_1.  p(3)  _^4  g(4) 

p4  -  p4  "  *»  p2  7(3T  *  P2 

A22 


-a<4> 


24 

jr  * 

v22 


43)  =  44)  =  0;  43>  =  44)=0  • 


The  program  now  proceeds  to  set  up  either  the  P  or  the  Q  matrix  and  evaluates 
its  determinant. 

If  there  are  less  than  four  a's  with  positive  real  part  (K  <  4)  the  program 
proceeds  as  follows:  . 

If  K  =  1  the  case  terminates  (case  2c).  If  K  =  2  or  3  the  program  computes 
the  quantity  l^22A44-  ^24  ^  ^or  eac^  a  anc*  counts  the  number  (II)  of  a‘s  for 
which  this  quantity  <  10"  5  and  the  number  (12)  of  a's  for  which  this  quantity 
£10  10  3  is  close  enough  to  zero  due  to  the  magnitudes  of  the  individual 

terms  in  the  quantity.  If  K  =  3  and  II  =  2  the  a's  become  and  a^  and  the 
3's  are  calculated  as  they  were  above  for  a^  and  Only  the  Q  matrix  is 
set  up  and  evaluated  (case  2al).  If  K  =  3  and  12  =  2  the  a's  become  a^  and 
a^  and  the  3's  are  calculated  as  above  for  a^  and  a^ .  Only  the  P  matrix  is 
set  up  and  evaluated  (case  2a2).  If  K  =  3  while  II  ^  2  and  12  ^  2  the  case 
terminates  (case  2a3).  If  K  =  2  and  II  =  2  the  3's  are  handled  as  above  (case  2bl). 
If  K  =  2  and  12  =  2  the  3's  are  likewise  handled  as  above  (case  2b2).  If  K  =  2 
while  II  t  2  and  12  /  2  the  case  terminates  (case  2b3). 

Degenerate  Non-piezoelectric  Case 

This  case  is  characterized  by  a  decoupling  of  the  equations  for  3^  such 
that  two  of  the  equations  involve  3j  and  3^  only  and  one  of  the  equations  involves 
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JP=2 

1CASE=2 

mx(l>=  IX22(aj)  •  X44(0l)- ^(a/j 

BM1N=BIX(1) 

BIX(k)= !  A^)  •  X44(p^  -  X24(ak)2 1 


BIXtk^lA^  •  ^44(ak.)  A24<c[k)2| 


(1  ALPHA) 


(LESS  THAN  4  a's) 


\»i 


TO 


*) 


(1  ALPHA) 

</!)< 


Aurn/ 

)<i|> 

2 


DBGBN=19 
(Y.A.l) 
IDBT=2 
IB  2=1 


~5 


(3  ALPHAS) 
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APPENDIX  I.  ELEMENTS  OF  THE  L  MATRIX  FOR  THB  ELASTIC  - 
CONDUCTOR  PIEZOELECTRIC  SUBSTRATE  PROBLEM 


The  subscript  p  corresponds  to  the  piezoelectric  medium  while  the 
subscript  c  corresponds  to  the  conducting  elastic  medium.  The  C^'s  and  e.Js 
correspond  to  the  piezoelectric  medium  while  \  p  correspond  to  the  conductor 
(Lame's  constants).  The  expressions  for  are  easily  obtainable  from 

w 

equation  (20)  and  are  as  follows 


F1 

lPcVs  _  (5, 6) 
p  c 


F1 

Pcvs 


2p  +  X 

The  elements  of  the  10  x  10  boundary  value  determinant  are  as  follows: 
Lil  =  Pci^  "  1,2,3  l~  **2» 

LU  =  'Bpi’6>Ci=1'2-3  t.7,8,9,10] 

f&MVi  &V  [*-1,2. . 6] 


L«  =  -  #‘6>  0  C15  +  <T»  t»  C56  +  <$**  C45] 

-ept6)  °55  +  “pW>C35]  '  Bp46>  <=15  +ap*'6)  e35]  ^  7*  »■ ».  10] 

LM*8!*!4V*-».2 . 6] 

L54  =  ■  0  014  +<£«  C„]  -  e<t6)  tj  c4fi  +  a^  C„J 


‘  Bp36>  [iC45  +  0p<,6>C34]  "  6p46)  Cie14+ap<’6>e34]  7,8,9,10] 
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APPENDIX  HI.  ELEMENTS  OF  THE  L  MATRIX  FOR  THE  ELASTIC  LAYER 
PIEZOELECTRIC  SUBSTRATE  PROBLEM 


II 

3^  .  1010  [i=l,2,3i=l,2, 

•  •  •>  6  1 

r* 

H** 

<> 

II 

- 3^" 6)  •  1010  [i=l,  2, 3  £=7, 8, 9, 10  ] 

tr 

H* 

II 

0  [i=l,  2, 3  <6=11, 12, 13] 

II 

•<* 

u  aW  6(i)  +  i  a  fjW 

Md  ad  pdl  +  J  ^d  Pd3 

[<6=1, 2,... ,6] 

L44  = 

[i  c  +a^'6>  c  ] 

pcl  LJ  c15  ac  C55J 

-  C6>  &  c56 

L4-r 


L-  „  = 


L5-t  = 


_Pc3  }  Cj  c55  +ac4  6>  c35]  ‘  Pc4  6)  Cj  e15  +ac^  6)  e35] 
[<6  =  7,8,9,10] 

0  U=  11,12,13] 


5 1  Pd2  C-L  =  1,  2, . . .,  6] 

•  fl'6>  ti  c46  +  a(«>  c44] 

-  Bc3'6>  CJc45+ar6>c34]-  <Sf*  Cie14+af6)e,J 


34' 


ll=  7,8,9, 10] 


L5<6“ 

0  [<6=11,12,13] 

L6<6  = 

j  Adedl+^d  +  2(id)ad^ 

p(^) 

pd3 

1,2,. ..,6] 

L6l  = 

e(^6) 

Pc2 

-e6,^35+e6,c 

33 -1 

-3^'6)[je  +a^'6)e 

c4  LJ  e13  +  ac  e33 

U=  7,8,9,10] 

L6  C 


0  U=  11,12,13] 


L7^ 


L4  le 


ay  uh/v 

:d  8  U=l,2,.., 


hu= 


0  il*  7, 8,. ..,13] 


L8-t  = 


LSle 


$  uii/vs 


[-1=  1,2,  ...,6] 


L8£  = 


Lr 


0  U=  7,8,  ...,13] 


L6-le 


$  ^/vs 


[t =  1, 2,  •  •  • ,  6] 


LH  = 


0  U=7,8 . 13] 

0  tl=  1,2,  ...,6] 

Pc4*6)  U=  7,8,9,10] 

-1  tin  11,12] 


'11,11 


'11, 12 


lt=  13] 


U=  1,2,  ...,10] 


-uh/v 


'll, 13 


-uh/v 
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APPENDIX  IV.  EXPLICIT  FORMS  OF  THE  POLYNOMIAL  COEFFICIENTS  Ak 

a  2 

The  elements  of  the  matrix  A  have  the  general  form  Aik  =  a.ka 
+  j  b.^a  +  d.j,  where  a.^,  b. and  d. ^  are  easily  deduced  from  equation  (6) . 
Therefore,  the  determinant  of  A  can  be  expressed  as  the  polynomial 

AjCi®  +  jA2»^  +  A^ct^  +  jA^a^  +  A.a4  +  jA^  +  A^a2  +  jA^a  +  A^ 
with  coefficients 


A 


A 


A 


A 


A 


A 


1 


2 


3 


4 


5 


6 


tj,k,  -C.mj 


{j,k,  t,  m] 

r* 

{j,k,  l,  m} 

/ 

{j.k^Cm} 

V 

{ j,  k 7t,  m } 


(•1»h  [VDm  +  VtSmJ 

(-*)11  [vv™-wc*+vsj 

(-l)h[l..,v  +J...U  +  K..S  ] 

'  ’  jkf-  m  •'jk-o  m  jk-t  m 

(*l)h(j...V  -K...  U  +L...S  ] 

'  ^jkf,  m  jk-L  m  jki  m 

(*l)h  [K ...  V  +L...U  +M...S  ] 
'  '  jk-t  m  jkl  m  jk-f  m 


152 


A7  = 


y  «■ 

■j.CXm} 


CVVn,-VDm+VSm] 


A8  ~ 


A9  " 


Hr  Cm  v  +  n...  u  ] 

jk-c  m  jk-t  m 


<-»> ‘»iMV 


m 


r 

(j,  k,  l,  m}  refers  to  a  sum  over  411  permutations  of  1, 2, 3. 4.  There  are  24 
terms  in  each  sum.  h  is  the  number  of  interchanges  for  each  term  necessary 
to  return  the  indices  to  the  order  1, 2, 3, 4;  and 


V  - 

aij 

a2k  a3-t 

V-t 

au 

a2kb3^  +  <aljb2k  +  blja2k)a3-t 

II 

»■" r* 

au 

a2kd3t'  <aljb2k  +  blja2k> 

b3 1 

+  <alj  d2fc  *  blj  *>21,  +  « 

2k^  a3 1 

k...  = 

jkf. 

(aij 

b2k  +  bljVd3t'(aljb2k 

+  blj  a2k^  b3-t 

+  (bljd2k+dljb2k,a3-l 

ii 

M 

J 

(au 

d2k' V2k+dlj  W 

•(bljd2k  +  dljb2k>V 

+  dlj  d2k  V 

M'..  ,  = 
jk-t 

<bu 

d2k  +  dljb2k>d3t  +  dljd2kb3t 

N...  = 

jk£ 

dijd 

l2k  d3l 

to 


155 


APPENDIX  V.  COMPUTER  PROGRAMS 


CONMV  PHASE  N4*  12/11/44  OOOIO*  PAGE  1 

.  i 

*10  •  1414  N4CG4MAY  PHASE  44  00010*  112244  12/31/4*  00010* 

ATCP  TIME"3«PAGE  5*20*  DUMP 

1SETUP  LB4  CRTPLT 

SAIL  CONTINUE 

A1BSVS 

RETURNING  10  IBSYS* 

BIBJOB  DEBUG 

SIBFTC  LINB03  OECA. DEBUG 


CLINIC) 

C*  GOLD  LITHIUM  AND  LITHIUM  N10BATE 

C* 

*••«••»»***»****** 


DIMENSION  A ANCLE! Ill) 

DIMENSION  XX! 2)  *  YY 12 ) 

DIMENSION  DELTA! Ill ) 

DIMENSION  RTll!lBl>»RlTll<lBl>*RUlUBl),ftIUl(lBl).ReillBl) 
DIMENSION  REIM1B1) 

DIMENSION  CETAAY! 100 )»OET IAYIIOOI oVSAAAX 100) *AAAAA(200) 
CCMALEX  Dl»»-|4| 

INTEGER  iLlMITtELIMIT 
LOGICAL  ROTATE 
LCGICAL  GETOUT 
LCGICAL  NECAT 
LOGICAL  MU  IT 
LCGICAL  ICHECK 
COMMON  /ROTAT/  ROTATE 
CCMMCN  /GET /GETOUT 
CCHNGN  /PLOTS/ICHECK 
CATA  XX/0«* 10*/* YY/S«*5«/ 

DIMENSION  0EGI181I*  T I  TLESI4) 

DIMENSION  VELOCI 111  I  *  VEL0CIC1S1I*  VEL(362I 
CCMMCN/OVA/KO.NJ 

CCMMCN  /llll/  CCI20I *CE(17)»CT(5) 

COMMON  ./LINK/  ALFA(B)*  ALFA1III*  ELCIOO),  ALFAA(6l » 

•  ALFA II 4 ) *  BETAAI 3*6) *  BETAS (4*4 )  •  EMSO, 

•  MUAf  LAMOAA*  A HO A,  MLB*  LAMCAB*  NUB*  AHOB. 

•  VS*  XS»  EPSLON*  DIGIT*  NH*  NXA*  MXB*  KL* 

•  KM,  ALL*  MOOTS*  ITER,  COEFF,  DETERM*  POLY* 

•  ALPHA*  BETA,  MAX 
CCMMCN  /GMEP*/.  G<21tv  FIUI*  EPSI9) 

COMMON  /FLAG/  ONCE  /BETAN/  NBETA 

•  /CSET/  CLIN*  ELIM*  TL1M 

CCMMCN  /F MOOT/  FVSMAG*  NT,  ICASE 

•  /CON/  ACAP*  EPSR 

•  /CIA/  I A  €4 1 

_  .  .  /ALESS/  I ALF 

•  /CIFL/  NXAGNL 
INTEGER  FLOTITUI 

CCMPLEX  XEL! 3*31*  FXL*  XL(2*3».  XE1I2I 

COMPLEX  ALFA*  FVS  ,  EL*  EA16I*  EBI4),  UA(3I*  UBO I  *  ALFA! * 

•  ALFAA*  ALFAB,  BETAA*  BETAB*  ETAIlOI*  PHIB 

_ QCMPLXX. _ JCHU-GU 

CCMPLEX  TFUN*  PIFUN*  U*  EXI4I*  PIN*  P2M, 

•  TN31,  TM32.  TN33*  Tull  *  TU12*  TU22*  $11,  S22»  S33* 

•  S12*  S13*  $23*  Cl*  02*  03*  JIMAG*  El*  E3 
REAL  _HUAi  i.  A  MO  A  A,  MUBj  LANOAB,  nua*  nub, 

•  MAGUI 4 ) (  PHASEUI4I*  NUMAX .  TITLE  141 

LOGICAL  ALL*  ROOTS*  COEFF*  OETERM,  PCLV*  ALPHA,  BETA* 


NAIN002C 
MAIN0039 
MAI  NO  040 
MAIN0050 

mai  no  060 


MAI NO 080 
MAIN0090 
MAIN0100 
MAIN0110 
MAIN0120 
MAIN0130 
NAIN0140 
MAI NO  ISO 
NA1N0160 
MAI  NO  170 
NAIN01B0 
MAI  NO  190 
MAI  NO  195 


MAIN0200 
MA1N0210 
MAIN0220 
MAIN0230 
MAIN0240 
MAIN0250 
MAIN0260 
MAI  NO 270 
MAIN02B0 
MAI  NO 290 
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ICPECK.  AMP,  I  ALP. 

KAMI. 

REPEAT.  OACE 

L1NS03  CON  PAY  PHASE 

LINUS  -  EPN  SOURCE  STATENENT 


12/S 1/A*  OOOIO* 


EQUIVALENCE  I  VELIll.  VELOCI II  I.  I  VEL0C1I1I.  VEL1102!  t 
EQUIVALENCE  (  TITLE.  TITLESIII  I 

equivalence  iccm.  cm.  iccm.  cist.  iccm.  ciai.  iccui.cisi.hainosio 

.  ICCISI.  CSSI.  ICCIAI.  CSAI.  ICCITI,  CSSI,  (CCISI.CSAI.NAINOSSO 


ICCI*I.  CA4I.  ICCI10I.CASI.  ICCI11I.C4AI. 
ICC! 121, CSSI.  (CCI1SI.CSA),  ICCI14I ,CA*I . 

icciisi.ciai.  term.  ehi.  icei2i.  eis'i. 

ICEISI,  EtAI.  ICEIAI.  E1SI,  (CEISl.  EMI, 
ICEMI,  £311.  ICEITI,  ESSI.  ICEISI.  ESAI. 
ICEISI.  ESSI.  ICE) 101, ESAI,  ICTI1I.  Till. 
ICTI2I.  T1SI,  ICTISI.  TSSI 

EQUIVALENCE  ICCI  1AI.C12I,  ICCI  171,0231 ,  ICCIMI.C2AI, 
I CCI 1* I .C2AI,  ICCI 20I.C2SI,  ICEI11I.E12I, 
ICEI12I.E22I,  ICEI1SI.E21I.  ICE<14I.E2SI< 
ICEI1SI.E24I.  ICEI1AI.E2SI,  ICEI1TI.E2AI, 
ICTI4I ,  T21I.  ICTISI.  72SI 


.  AECAT, 

.  PXACNl. 


/INPUT/  NUA,  LANOAA.  RHOA,  HU,  LANCAI,  hUt.  RHOS. 
VS,  KS,  EPSLON,  HH.  h«A.  MS,  EPSR, 

KL,  KH.  ALL.  ROOTS.  COEPP,  OETERR, 

POLY.  ALPHA,  SETA,  HAS,  EPSO.  MX,  REPEAT, 
ICHECK,  OVS.  VSNAX.  ACAP.  CLIN.  ELIH,  TLIN, 
ONU,  NUN AX.  OMX,  MXNAX,  TITLE 


.  ,HLIT. ROTATE 

PANELIST  /CONST/  C,  P.  EPS 


CX0.CX1/I0..0.I.I1..0.I/ 

TTS1.  TTS2.  TTSS.  TTU.  TT12.  TT22  / 

SHTS1.  3HT32.  3MT33.  SHTU.  SHT12,  SHT22  / 
SSL1.  SS22,  SSSS.  SS12.  SS1S.  SS2S  / 

SHSU.  SHS22.  SHSSS «  SHS12.  SHS1S,  SHS2S  / 
001.  002,  OOS,  UU1.  UU2*  UUS  / 

2H01,  2H02.  2H0S,  2HU1,  2HU2.  2 HUS  / 

PP1H,  PP2N  /  SHP1N.  SHP2H  / 

EE1.  EES.  JIHAC  /  2HE 1.  2HE3.  10.. 1. 1  / 
TITLE! 1 1  /  24HLITHIUN  NIOSATE  / 


HAIN0340 
HAINOSSO 
'HA 1 NO 340 
NAINCSTO 
HAINOSSO 
HAINOSSO 
HA  I  NO  400 
NAIN0410 
HAIH0420 
HAIN04S0 
HAIN0440 
HAIN04S0 
NA1N0440 
HAIN0470 
HAIN04S0 


HAINOSSO 
HA  I  NO  SO  0 
NAIN0S10 
HAIN0S20 

HAINOSSO 

HAINOSSO 

HAINOSSO 

HAINOSSO 

NAINOSTO 

HAINOSSO 

HAIN0S*O 

HAINOSOO 

HAIN0S10 

HAINOS20 

HATNOSSO 

HAINOSSO 

HAINOSSO 

HAINOSSO 

NAINOSTO 


REACIS.TTTS I  JJJK 
TTTS  PCRPAT 1121 

IPI JJJK.EQ.OI  CO  TO  TTTS 
CALL  SKPILEI2.JJJKI 
TTTS  CONTINUE 

CC  20  I«1,1S1 
20  CECIII  •  l-l 
CALL  CRTPLT 11.01 
CALL  PLOTIO..-.2S.-3I 
CLIP  •  l.ES 

ELIH  •  l .1-3 

TLIH  »  l.E-15 

EPSLON  •  l.E-U 

EPSC  •  S. SSI-12 

EPSR  •  1. 


HAINOSSO 

HAINOSSO 

HA1N0T00 

NAIN0T10 

HAIN0T20 

HAINOTSO 


I 
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.  L1M1Q3  CX3HM&T  .  PNAi£  N4 

LINB03  -  EFN  SOUFCE  STATEMENT  -  IFACS) 


12/31/41  000101 


_ *H0#  _ 

MM  -  2.4SE10 
LAMOAA  •  1.5E11 
VSAVE  •  3000. 

_  pis  -  0. _ 

i$* AX  •  0* 

CIG1T  •  3.0 
A UMAX  -  0. 

CAU  •  0, 

NXMAX  •  0* 

_ m _ -.o, _ 


XL  •  o 
KM  •  0 
MAX-25 

ALL  -  .FALSE. 

_ *MTS_«.  aCALHi _ 

COEFF  »  .FALSE. 

GET  EMM  *  .FALSE. 
AECAT-. FALSE. 

FOLV  •  .FALSE. 

AlFHA  •  .FALSE. 

•ETA  _•  .FALSE. _ 

1 CHECK  •  .FALSE. 

ACAF  •  .FALSE. 
HXA6AL-. FALSE. 

CETCUT  -.FALSE. 

MUII-. FALSE. 

.  ..  FOTATE-jFAASif. 


C . I  N  F  U  T  OAT  A . 

510  FEAO  15.  COAST) 

1  FCFAATC  AAA  I 

FEACC5.il  C  TITLESm,  1-1.4  1 

_ KCUAT  -  Q  __  _ 

KOAT-O 
K AT 1-0 
KAT 2-0 
KAT3-0 

KEFEAT  •  .FALSE. 

.  HO  IS  -  VSAV* 

KTIM6  -  0 
FEAC  IS.  INFUTI 
SNU  •  HUB 
SAX  -  NX 

KEADC5.7I  I FL0T1TI 1 1 .1-1.6) 

_ tJCEMAtCBUI  _  _  _ 

530  KTIME  •  KTIME  ♦  1 

IF  (KTIME  .«LE«  2)  GC  TO  535 
COA  •  IVS1  -  1521/ (AN1  -  AN2) 
COB  •  VS1  -  COA*ANl 
VS  -  COA*AUB  ♦  COB 

»MIAy(  -  ti _  _ 

CNCE  •  .TFUE. 


MAIA0730 
MAI HO 740 
MAIH0750 
MAI  NO 760 
MAIH0770 
MAIN07B0 
MAIN0740 
MAI NO BOO 
MAI  NO  BIO 
MAIN0B20 
MAIN0B30 
MAIN0B40 
MAIN0B5O 
MAI  NO 640 
MAIN0B70 

MAI  NO  BIO 
MAI  HO 400 
MAIN0420 
MAIN0930 

MAIH0440 
MAI  NO 450 
MAI  NO  460 
MAI  H0 170 
MAIN09B0 


MAI  NO 490 
MAIN1000 
MAIN1020  22 


MAIN1030 
MA1N1040 
MAIN1050 
MAIN1060  36 
MAI  HI 010 
NAIN1040 


MAI N1 100 
MAIN1 110 
MAI Nl 120 
MAI N1 130 
MAI Nl 140 
MAIN1 ISO 
MAIN1160 
MAI  HI  170 


FACE  2 
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l  INB03  CON MAY  PHASE  N4 

LINB03  -  EFN  SOU  AC  £  STATEMENT  *  IFMS) 


C . CALCULATE  coefficients, 

CAU  SETCTE  (HUB,  NUB, 
If! IChECKI  CO  TO  2 


LANOAB.  COEFF  .0*.  ALU 


C . CALCULATE  BOOT  AND  OlTPUT  RESULTS . 

VSO  -  VS 
AT  *  0 

SSO  CONTINUE 

CALL  AOOnvSO.VS.N,FVS,EPSLON.NAX.S550l 
IF(CETOUT)  GO  TO  17 
IF(  PLOT  IT ( 1 )  «EQ.  0  )  GO  TO  32 
KCUNT  •  KOLNT  ♦  l 
VEL IKCUNT )  -  VS 
32  CONTINUE 
VSt  «  VS2 
VS2  *  VS 
AN1  -  AN 2 
AN2  •  NUB 
VSI  -  1 ./VS 
CO  615  I  •  1.  a 
A15  AlFAim  -  ALFAID/VS 

MUTE  (A.  6501  KS,  TITLE*  EPSLON. 

.  KL.  KM*  MAX*  N*  NUB*  LANOAB*  NUB*  LAMQAA *  MU A, 

•  RHOA,  RHOB*  MH,  VSO*  VS*  VSI*  FVS* 

•  (ALFAIII*  ALFA! (II*  I  •  1,  B) 

PUN CM  1500 .LANOAB. NUB, NIB 

1500  FCRNAT ( 3F 5 • 1 1 

PUNCH  1502. VS. VSI, (ALFAIII. I-l. 81 
hRITE  (2*  650)  KS.  TITLE*  EPSLON. 

KL*  KM*  MAX*  N*  MUB*  LANOAB*  NUB.  LANDAA,  MUA, 
RHOA*  RHOB.  MH.  VSO.  VS.  VSI*  FVS* 

(ALFAIII*  ALFA! ( 1 1*  I  ■  1*  S) 

650  FORMAT  (1H1.20X.4HKS  •*12*5X*  4A6  /1H0.6X* 

BHEPSLON  -,E15.7.3X,32KL0SENESS  OF  DETERMINANT  TO  2ER0/1H  *6X. 
2HKL.5X.1H-.I3.15X.34H0  -  COMPUTE  FOURTH  ROM  OF  L  NATRIX/1H  . 
32X.22HI  -  SET  FOURTH  ROM  -  I/IH  .6X.2hKM.5X, 1H-*1 3.15X, 


MAINUBO 

MAIN1190 

MAIN1200 
MA1N1210 
MAI Nl 220 
MAIN1230 
MAI Nl 240 


MAIN1260 
MAIN1270 
MAIN12B0 
MAI Nl 290 
MAIN1300 
MAIN1310 
MAIN1320 
MAIN1330 
MAIN1340 
MAIN13S0 
MAI Nl 360 


12/31/69  000109 


53 


PAGE  3 


59 


MAIN1330 
MAI  Nl  340 
MAI Nl 350 
MAIN1360 
MAIN!  370 
MAINUBO 
MAI Nl 390 
MAIN1400 

25H0  -  ELECTRIC  FIELC  (COTHl/lH  .32X.25H1  -  MAGNETIC  FIELD  <TANH)MAIN1*10 
/1H  *6X* 3HMAX.4X. 1H-* 1 3* 15X *2 BHMAXI MUM  NUMBER  OF  ITERATIONS/  MA INI 420 
1H  *6X*1HN*6X* 1H-* I  3, 15X*  34WUMBER  OF  ITERATICNS  ACTUALLY  USEO/  MAIN1430 
1H  *6X*BHMU  B  -.E15.7.7X.9HLAM0A  B  -.E15.7/IH  *6X,BHNU  6  -*  MAIN1440 
£15.7, 7x .9HLAH0A  A  >*E1S*7/1H  *6X*BHMU  A  -.E15.7/1H  *6X*  MAIN1450 
BHRHO  A  b,E15*7*7X*9HRH0  B  -.E15.7/1H  *6X*2HMH*5X .1H-.E15.7/  MAIN1460 
1H  *  6X,  MAIN1470 
BHVS  0  -.615*7. 3X.16HINITIAL  VEL0CITT/lH0.6X*2HVS*5X*lH- *E15* 7*MAI N14B0 
3X.42HFINAL  VELOCITY  SUCH  THAT  F« VSI  »LT*  EPSLCN/1H  ,6X*  MAIN1490 
BHl/VS  -.  I  10)  |  1 1  Hit}  I  \&  MAIN1500 
£15*7  *3X  *  13H  INVERSE  OF  VS/lH0*9XL2lH**.;i  'OElTERMINANT.  •  (.E14.7*  MAIN1510 

1H,*E14*7*7H  1 . /1H0.5X.25HFINAL  ROCTS  OfI  POLYNOMIAL »16X*  MAIN1520 

13F01V10EO  BY  VS//I4H  I *E14*7*lH*  *614.7 *1H) *7X»1H( *E14*7,  MAIN1530 
1H  *  »E 14.7 , 1H ) ) )  MAIN1540 

MAIN1550 

IF(  IALF  I  GO  TO  1707  MAIN155S 
IFI  .NOT*  ICFECK  )  GC  TO  660  MAIN1560 
IFI  VSO  *GE*  VSMAX  I  GO  TO  1708  MA1N1570 
VRITEI6. 1705)  MAINUBO 
VSO  -  VSO  ♦  OVS  MAI Nl 590 
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*7 


SB 


95 
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12/31/44  000104 


CC  TO  550  MAIN1400 

440  CCNTINUE  MAIN1410 

IF  IKS  .NE.  01  CO  TO  1240  MAIN1430 

MAIN 1440 

C . CALCULATE  FINAL  RESULTS  FOR  LITHIUM  MIOIATE  AMO  OUTPUT  RESULTS. ...NAIN14S0 

IF!  ICASE  .tO.  0  I  GO  TO  1000  _  .  NAINI440 

CO  TO  I  SO.  100.  40.  110.  10S  1.  ICASE  "*  ”  ,  HAIN14T0 

HAIN1400 

NAIN1440 

C . 1  ROM.  3  EERO  CASE .  MAIN1T00 

.  '•  MAIN1T10 

C . 1  4  ALPHAS  I .  _  a  HAIN1T20 

SO  ETAtll  •  CXO  MAIN1T30 

ETAI4I  •  CXI  NAIN1T40 

XII 1.11  •  ELISI  MAIN17S0 

XL12.1I  •  ELI7I  HAIN1T40 

XU  1.21  •  ELISI  MAINlTTO 

XU2.2I  •  ELI  111  NAINITtO 

X1I1.3I  •  -  ELI  133  NAIN1740 

XLI2.31  •  -  ELI  15 1  MAIN1000 

CALL  CHAT S I  XL.  XET.  2.  1.  S1T40  I  NAIN1010 

ETAI2I  •  XET Ilk  HAIN1I20 

ITAI3I  •  XETI2I  MAIN1030 

CC  TO  1100 _  _  NAIN1040 

MAIN1IS0 

C . I  3  ALPHAS  I .  NAIN1040 

40  ETAI3I  *  CXI  HAIN10T0 

ETAI4I  •  CXO  MAI N1 000 

XII 1.11  •  ELI  1 1  NAIN109O 

*112.11  MUSI.  _  HAIH1000 

XU  1.21  •  ELISI  HAIN1410 

XLI2.2I  •  ELI7I  MAIN1920 

XU  1.31  •  -ELISI  NAIN1930 

XLI2.3I  •  -ELI  11 1  HAIN1940 

CALL  CHATSI  XL.  ETA.  2.  1.  01740  I  NAlNlfSO 

_  -SC  TO  UOO _  MAIN1940 

MAIN14T0 

NA1N1400 

C . .  OCRS.  2  ZERO  CASE .  NAIN19S0 

100  ELI  •  CAOSI  EL  1 1 1*  EL  1 71  -  ELIS l*ELI 3 1  I  NAIN2000 

EL2  >  CAOSI  ELI10I4ELI14I  -  ELI  14I*ELI 121  I  NAIN2010 

I.FI  fLl  .LE.  EL2  J_St  TO  110  NAIN2020 

105  ETA  I II  •  CXO  NAIN2030 

ETAI2I  •  CXO  NAIN2040 

ETAI3I  •  -  EL  1 14 1  /  ELI  101  NA1N20S0 

ETAI4I  •  CXI  MAINZ 040 

CC  TO  1100  MAIN2070 

— m_ETA.m_-.-  tusi  /  urn _ maimooo 

ETAI2I  •  CXI  NAIN20S0 

.  ETAI3J. •  .CXO  MAIN2100 

ETAI4I  •  CXO  NAIN2110 

CO  TO  UOO  MAIN2120 

MAINE 130 

1000  IF  INOETA  ,E0.  31  GO  TO  1010 _  __  NAIN2140 

MAIN21S0 

C.....EERC  -  PIEEOEUCUJC  CASE.,,.,  .  MAIN2160 
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ELI 3)  *  ELISI 
ILIA  I  -  ELIA) 
ELIS)  —ELIA) 
ELIA)  — ELI10) 
CC  TO  109S 


MAI  H2 170 
MAI N2 110 
MAIN2190 
MAI M2 200 
(CIN2210 
MAI  M2 220 


wnrfcm — *  nnm 

HWNror  — 

(1(51 

•  EIUI 

MAIN2240 

1116) 

•  EUTI 

MAIN2250 

! 

EL17I 

•  ELI, 9 

MAIN2260 

i 

ELIO 

•  ELI  101 

MAIN2270 

$ 

ELIO 

-  fit  11) 

MAI  M2 2*0 

!  Ell  101 

—ELI  13) 

NMN229V 

Ell  11) 

•-Ell  141 

MAIN2300 

! 

Ell  121 

•  -ELI  151 

MAIN2310 

t 

1095  KCO  -  12 

CALL  CHATS  I  EL.  ETA,  H6ETA,  1.  *1740) 

ITAI4)  ■  (0..0.)  _ 

EtA I N4ET A’A  1")  *  I  l"VVflU ) 


1100  CCNTINUE 

AIETA1  -  NBETA  ♦ 
WRITE  16.  1120) 
WRITE  12.  1120) 
1120  FORMAT  IlMl/lM  • 
•  1H0 


1 


(I.  ETAII),  1  ■  1.  MAETA1 ) 

II,  ETAII),  I  •  1,  NIETAl) 

17X,  36H***  F  I'N'A  L  VN~S  VE  CTY  **W 
30X.13MPARTIAL  FIEL0/1H  »27X»  19HRELAT I  VE  AMPLITUDES/ 
/UH  •  17X,  T2»  3H  I.  EU.7,  IH,, 

E1A.7,  1H) ) ) 

PUNCH  1502.  IETAtIt.I-1.4) 

co  to  iaoo 


1.  9 


.•••••CALCULATE  FINAL  RESULTS  FOR  COLO  LITHIUM  AMO  OUTPUT  RESULTS* 
1240  PI  •  1 
X  •  0 
CO  1310  I 
M2  •  Ml  ♦  • 

00  1300' J  ■  Ml,  M2 
K  •  K  ♦  1 

1300  Ell K)  -  EL ( J I 
1310  MX  «  Ml  ♦  10 

CO  1340  I  •  51,  99 
X  •  X  ♦  1 
1340  ELIK)  -  -ELI  I ) 

XGC  »  90 

CALL  CM ATS  I  EL,  ETA,  9,  1,  *1740) 

ETA  1 10)  -  II. .0.) 

CC  1490  1  •  1,  3 
UAII)  •  10., 0.) 

uaii)  •  10. ,0.1 

CC  14*0  J  •  li  6 
IF  II  «CT.  1)  GO  TO  1460 
EAtJI  -  CEXPI-ALFAAI J)*WXA/VS) 

IF  IJ  «GT«  4)  GO  TO  1460 
HI  A)  C8WPI  A4FAII J)<WX*/¥l) 


MAIN2320 
MAI  N2  330 
MAI N2 340 
“KATN2350 
MAI  N2 360 
MAIN2370 
MAIN23S0 
MAI  M2 390 
MAI M2 340 
MAfN2400‘ 
MAIN2410 
MAIN2420 
MAIN2430 

MAIN2440 
MAIN2450 
MAIN2460 
MAIN2470 
MAIN24A0 
MAIN2490 
MAIN2500 
KAIN2510 
MAI N2 520 
MAI M2 530 
MAIM2540 
MAIN2550 
MA1N2560 
NAIM2570 
MAIN25B0 
MAI M2 590 
MAIN2600 
MXPS610 
MAIN2620 
MAIN2630 
MAIM2640 
MA1N2650 
MAIN2660 
MAIM2670 
HAIM26M. 


14* 


153 

140 


167 


201 


215 


1460  UAII)  «  UAII)  ♦  ETAU)*RETAAtI,J)«E4(J) 
IF  IJ  *GT*  4)  GO  T0‘  14*0 


MAIN2690 
MAI N2 700 


K 


W  -  IACJ)  HMN267f 


b 


! 


•  i  , 

I  .  . 

i  i 


V 
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UBI1)  *  UK  1 1  ♦  £TAIJ*6)*BETAA(i.J)»EBlJI 
I ABO  CONTINUE 
14*0  CCMTINUE 

PHI i  -  10. .0.) 

CC  1520  J  *  1 »  4 

1520  PHIB  -  PHIB  ♦  £TA<  .)♦<)•£■<  J) 

WRITE  IN.  1550)  U.  ETAII),  I  •  1*  10). 

.  II,  UAII),  UB(l).  1  •  1.  3).  PHIB 

1550  FOB MAT  IlHO/lH  .  17X,  3BH*«A  FINAL  ANSWERS  •»»/ 

•  IHO.  30X.  1 3HPABT IAL  FIEL0/1H  *27X, 19HBELATI VE  AMPLITUDES/ 

•  /10I1H  .  17X.  12.  3H  |.  E1A.7 ,  1H,» 

•  £14*7,  1HI/1/LH  .  21X.  2 HU A*  32X,  2HUB// 

•  31 1H  .  16.  3M  (.  E1A.7,  lH..  E1A.7,  AH)  I.  E1A.7,  1H., 

•  E1A*7.  lH)/)/lH  ,  2AX*  9HPH1  0  •  (•  EM. 7,  1H., 

•  EM. 7.  1H)  ) 

170B  WRITE  (6,  1705) 

1705  FCRMAT  ClHl) 

IF(CETOUT)  CO  TO  17 
IFINECAT )  PUB— NUB 
IFINECAT)  MUM  AX*- NUN  AX 
IFIMECAT)  NUB— NUB 

IF!  VSO  *G£.  VSMAX  I  CO  TO  1706 
VSO  »  VSO  ♦  ovs 

CC  TO  550  _ _ _ 

1707  WRITEIK1705V 

1706  IF  (ONU  «E0«  0.)  GO  TO  1710 
IF1MUIT)  GO  TO  3B 

HUB  •  NUB  ♦  ONU 

1FI  HUB  .07.  MUMAX  )  GO  TO  1709 

GC  TO  39  _ 

3B  PCB-MUBAONU 

IFIMUB.GT.NUMAX)  GO  TO  1709 
39  CONTINUE 
CALL  OVERCK 
IFINECAT)  HUB--NUB 

_ IFINECAT)  NUMAX—  NUHAX _ _ _ _ 

IFINECAT)  NUB— NUB 
1F|  MAX  .NE.  0  )  GO  TO  530 
VS  -  VSAVE 
CO  TO  535 


NAIN2710 
MAI  N2  720 
MAIN2730 
NAIN27A0 
MAIN2750 
MAIN2760 
MAIN2770 
MAIN27B0 
MAI N2 790 
MAI  N2  BOO 
MAIN2B10 
MAIN2I20 
MAIN2B30 
MAIN20AO 
MAIN2B50 
MAIN2B60 
MAIN2B70 


MAIN2BB0 
MAI N2 B90 
MAIN2900 
MAINZ 905 
MAIN2910 

MAIN2920 

MAIN2930 


1709  NLB  *  SNU 

1710  CONTINUE 


NAIN29A0 
MAINZ  950 
MAIN2960 
MAIN2970 
MAIN2990 


C . INCLUDE  PLOT  ROUTINES  HERE . 

1FI FL0T1TI 1 ).E0.2)  GC  TC  3A 
IFI PLOTITI 1 ) .EO.O)  GO  TO  3A 

_ CALL  SCALE! VEU10*. MOUNT.  1. 10*. VMIM.PV) _  _  313 

ifunot.  MUIT)  "  “ 

1CALL  AXISI 0. .0..2AH0IRECTI0N  OF  PROPAGATION, 2A, 10.0,0.0,0. ,1B*0, 

1  10. 0)  316 

IFI MUIT)  CALL  AXISI0.,0.,25H0I«ECTION  OF  PLATE  NORMAL ,25,10. , 

1  0.0. IB. 0.10.0)  319 

_ CALL  AXISI C. 0,0.0, 21HSURF ACE  WAVE  VELOCITY, 21,10. , 90. O^VM I N ,0V , 

1  10.0)  ~  '  321 

_  .  _CALL  AXISI_0.jlO.t_lM  ,1, 10., 0., 0..1B..10. )  _  323 


i 


162 


j 


! 


I 

r 


i 
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CALL  AXISI 10. .0..1H  ,1,10.,»0..YMIM.0Y,10.I 
CAU  L1NEI0EG.VEL0C, 1*1 ,1,0,0, 0«,1*. , YNIN.OVI 
IFIKCUNT.E0.U1I  60  TO  34 

CAU  LlNEIOEC.VELOCl, 1*1,1. 0,0, 0..1*.. YNIN.OVI 
3*  CAU  FLOTI  17..0..-3I 
KCUNT-0 
3*  CCN1INUE 

IFIFlOTiTlt).NE.3l  CO  TC  *7 
CC  A*  JK-1.1A1 

*4  OELTAI JKI-IVELIJK4141I-VELI JKI  l/VEU JAR  1  All 

CAU  AXISI0..0..24H0IRECTI0N  OF  PROROGATION, 24, 10. ,0. .0..1A..10.I 
CAU  SCALEI0ELTA.10. .1*1.1 .10. .OHlN.Oy) 

CAU  AX1SI0..0..11HDELTA  V  /  V. 11. 10. ,*C. .ON  IN ,0Y, 10. 1 
CALL  AX  I  SI  0. , 10. • 1H  ,1, 10. .0.. 0. .1*. . 10. I 
CALL  AXISI 10..0..1H  .1, 10. .90. .OHIN.OY, 10. I 
CALL  LINE! OEC.OELTA. 1(1 .1 ,0,0. 0..1*. .DMIN.DVI 
CAU  FLOTI  IT. 0,0.. -3 1 
•T  CCNTIMIE 

IF1 FLOTITI  2 1.EO.O)  CO  TO  37 

CAU  AXIS  I 0..0.*  24HCIAECT ION  OF  PROPAGATION. 24. 10.0.0.0, O.ilt.O, 

1  10.01 

CAU  AXIS. 0..0«, 33HT IHE  AVERAGE  FOMER  FLOW  OIRECTIOM.33,10. ,»0. , 

1  -25.,  5.  .10.1 

CALL  AXISIC..10..1H  ,1, 10. .0..0..1*.. 10. I 
CALL  AXISl 10. .0..1H  ,1, 10. .90. .-25., 5. • 10. I 
CALL  L1NEI XX.W.2.  1,0,0«0.,1«.0.,1.I 
CALL  IINEIOEC.FANCLE,1(1.1.0.0.0..1*..-2S..S.I 
CALL  FLOTI 17.. 0..- 31 
RCNT-0 
37  CCNTINUE 

IFI FLOTITI 31. EO.OI  CC  TO  73 

CALL  SCALEIRT 11  , 10. ,RNT1, 1, 10. .RTMIM.OAI 

CALL  AXISI 0..0..24M01AECT1GM  OF  PROPAGATION. 24. 10.0. 0.0, 0.,1*.0, 

1  10.01 

CALL  AXISIO..O..*HHACN  TU.A.10.,50.  .RIFIN.OR.  10.1 
CALL  UNEI0EC.RTU  ,  1*1  .1,0,0. 0..1*.  .RTNIN.ORi 
CALL  FLOTI17..0..-3I 
AMT  1-0 
75  CONTINUE 

IFI FLOTITI 4 l.EO.OI  60  TO  It 

CAU  SCALEIRU1  , 10. .KNT2. 1.10.. RTNIN.ORI 

CALL  AXISI0..0..24M01RECT ION  OF  FROFACA1ION.24,10.0,0.0,0.,1*.0, 

1  10.01 

CALL  AXISIC..0..4HNAC  U3.A.10..50..RTNIN.OR.10.I 
CALL  L INC t 0E6.AUI  .111.1. 0.0.0.. 1*.. RTNIN.ORI 
CALL  FLOTI IT., 0.. -31 

CALL  SCALEUIU1.10..KNT2. 1.10. .RTNIN.ORI 

CALL  AXISIO..0..24HOIRECTION  OF  FROFACAIION, 24. 10.0, 0.0,0., lt.O, 

1  1C..0I 

CALL  AXISIC..0..4HFHASES,4,10. ,30. • ATM IN, DA. 10. I 
CAU  LINEI0EC.RIU1. 1*1, l.O.O.O.ol*.. RTNIN.ORI 
CALL  FLOTI 17. .0.. -31 
KAT2-0 
U  CCN1IMUC 

171 HOTITI 3  )•  t0»0t  (0  TO  74 

CALL  SCM.EUE1  »10"K*T3» 1  *  10.  ,RTNIN»OM 
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349 

391 

343 


394 

401 

403 
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407 

404 

411 

413 
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LIN003  CON MAY  PHASE  N4 

L  INtO  3  -  £FN  SOURCE  STATEMENT  -  IFNI  SI  - 

CALL  AXISI0..0..24H01RECTION  Of  PROPAGATION. 24, 10.0,0.0,0., 14.0, 

I  IO.OI 

CALL  AXISI0..0..7HNAGN  Gl,*,lC.,9e.,*THIN,DR,lC.I 
CALL  L1NEIDEG.AE1  , 111 . I . O.O.O.. 14..RTN1N.ORI 
CALL  PLOTI 1T..O..-3I 
MAT  3*0 
74  CCNIINUE 

END  PILE  2 
17  CONTINUE 

mccroun  enc  pile  2 

IPICETOUTI  KOUNT "0 
IFICETOUTI  KONT-O 
IPICETOUTI  KNTl'O 
IPICETOUTI  XNT2'0 
IPICETOUTI  RNT3*0 
CETCUT  '.FALSE. 

IP  IPEPEATI  CO  TO  S10  HAIN3000 

CO  TO  520  NAIN3010 

MAIN3020 

C . EPPCR  -  L  MATRIX  SINGULAR .  NAIN3030 

1740  NKITE  I*.  17501  IELIII.  I  •  1.  XGOI  NAIN3040 

1750  PCRPAT  I42H1***  L  MATRIX  SINGULAR  (OUTPUT  OY  COIUNNSI//  MAIN3050 

.  (1H  .  CE14.7II  NAIN3040 

CC  TO  170R  NAIN3070 

NAIN30I0 

. . CALCULATE  AOOITIONAL  PARAMETERS  POR  LITHIUM  N I  ORATE .  NAIN3090 

1790  NRITEIA. 17051  MAIN3100 

1R00  OC  1110  I  «  1.  4  NAIN3110 

J  -  14(11  MAIN3120 

1(10  CXI  II  -  CEXPI-ALFASI JIPMX/VSI  MAIN3130 

CO  1A90  I  •  1.  4  NAIN3140 

L  •  (0..0.I  NAIN3150 

CC  1150  K  «  1.  4  NAIN3140 

1C50  L  «  U  ♦  ETA(KI*BETA4(I,K)*EX(K1  MAIN3170 

PAGUIII  •  CARSIUI  _  NAIN31R0 

PhASEUI 1 1  •  0.  MAIN3190 


12/31/49 


425 

427 

429 

431 


433 

435 


000109 


IF  IMAGUIII 
1490  CCNIINUE 
El  >  U 


■  NE.  0.1  PHASEUI 1 1  »  ATAN2I AIHAGIU I .REAL (Ul I*57.295  7  79MA1N3200 

NAIN3210 
NAIN3220 
MAIN! 230 
NAIN3240 
NAIN3250 
MAINS  240 
NAIN3270 


C . COMPUTE  TIME  AVERACE  POMER  FLOh . 

PIN  •  P1FUNIETA.  Cll,  CIS,  C14.  C14.  CIS.  C13,  Ell.  E31. 

.  06.  CSC,  C66.  C46,  CSC.  C36.  Elt,  ESC, 

.  CIS,  CSS,  CSC.  CCS,  CSS,  CSS.  EIS,  E3SI 

SPE  CL'SOR  T I  SORT  I  RE AL I  PI  Ml **2 AA IMAGIP1MI **2 1 1 
(2M  •  P1FUN  (ETA,  Clt,  CSC.  CCC,  C4C.  CSC.  CSC,  E1C,  ESC, 

.  02,  C25.  C26,  C24,  C2S,  C2S,  E12,  £32, 

.  04,  CCS,  CCC.  CCC,  CAS,  CSC,  E14.  E34I 

IP! PLOTI T I  2 1.EQ.OI  GC  TO  57 
KCNT'KGNT  *1 

PANGIEIRONTI«ATANIREALIP2NI/REAL(P1NI1C140./S.141S 
57  CCNIINUE 

C..... CALCULATE  T  S..... 

TM3I  •  TFUN  I  ETA,  MX,  CIS,  CSS,  CSC,  CCS,  CSS,  C3S,  EIS,  ESSI 


NAINS240 
MAINS 290 
MAINS 300 


MAIN3310 

MAIN3320 

NAIN3330 


451 


459 

4C7 


4*1 

4IC 


492 

493  494 


495 

500 

503 


PAGE  * 
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L  INK]  (OMMY  PHASE 

IIM01  -  EFN  source  statement 


IPWSI 


12/31/AA  OOOIO* 


tms2  •  tfum  i eta. 

TMSS  •  TPUN  I  ETA. 
Tkll  •  TPOH  (ETA. 
TWI2  •  TPOH  (ETA. 


TM22  •  TPOH  (ETA.  MX.  02.  C2S, 
IFI PLOTITI SI.EQ.OI  SO  TO  T1 

xhti«khti»T 


MX,  Cl*.  CAS,  CAA,  CAA.  CAS, 
MX.  CIS,  CSS,  CSA,  CSA.  CSS. 
MX,  CU,  CIS.  CIA,  CIA.  CIS, 
MX,  CM,  CSA,  CAA,  CAA,  CSA, 


C2A,  C2A,  C2S. 


CSA, 

CSS. 

CIS, 

CSA, 

C2S. 


E1A,  ESAI 
E1S,  ESSI 
Ell,  E31I 
E1A,  ESAI 
E12,  £321 


MAINSSAO 
MA1MSSS0 
MAINSSAO 
MAINS STO 
MAINSSAO 


ATll(KNTll>SaATIREALITNlll*«2PAIMAGITMlll*«2l/SPKL 
AlTUIKMTl  l*AIMAG(  TMllI  /SPECL 
T1  CCNT1NUE 

Sit  •  10. ,0.1 

S22  »  (O..C.I  _ 

SSS  *  10., 0.1 
$12  •  (0..0.I 
SIS  •  (0..0.I 
S2S  «  10.. 0.1 
CO  21*0  1  •  1,  A 
J  • 

511 
.133 

512 


SIS 
21*0  S2S 
Sll 
SSS 
$12 
SIS 
S2S 
Cl  . 


Mill 

511  -  ETAI 1 l*AETAB( 1,1 l*EX(I I 

SSS  -  ALFA! I Jl *ETAI 1 l*AETAA(S. I l*EX( 1 1 

512  -  ETAI 1 1 *SET/ 1(2,1 l*EXI 1 1 

SIS  •  ETAI  1 1 *(  lET.itl  1.  IIAALPAAI  Jl  ♦  AETABIS.I  l*JIMACI*EX(  1 1 

S2S  -  ETAIII*BETABI2.II*AIFABIJ|AEX(I1 

S11AJ1HAC/VS 

I  SSS/ AS  -  -  . . 

>  S12*C.S*AIMA6/VS 

>  0.3AS1S/VS 
'  0.5AS2S/VS 
TFUNIETA.  MX. 


Ell. 

£21. 

ESI. 


El),  E1A.  E1A.  El),  EIS.-TU.-TIS) 
E2),  E2A.  E2A,  E2S,  E2S.-T21.-T2SI 
ES3.  ESA.  ESA.  ES).  ESS.-TD.-TSSI 


02  •  TFUNIETA.  MX. 

CS  •  TFUNIETA.  MX. 

El  •  JIMAC*E1/VS 
ES  •  10.. 0.1 
OC  2310  I  •  1,  A 
J  -  Mill 

2310  ES  •  ES  ♦  ALFAAI JI*ETA( ll*EX(! I*BETAB(A, II 
ES  •  ES/VS 


MAINSSAO 
MA1NSA00 
MA1NSA10 
MAIMSA20 
MAINSASO 
MAINSAAO 
MAINSASO 
MAINSAAO 
MATNSATO 
MAINSAAO 
MAINSAAO 
NAINSSOO 
MAINSS10 
MAINS S20 
'MAINS  530 
MAINSSAO 
MAINS  SSO 
MAINSSAO 
NAIN3ST0 
MAINSSAO 
MAINSSAO 
NAINSAOO 
NAINSA10 
NAINSA20 
MAINSASO 
MAINSAAO 
MAINSASO 
MAINSAAO 


1PI PLOT  IT! SI.EO.OI  60  TO  TS 
KNTSaXNTSPl 

RE1(KNTSI*SCRT IAEA LI  Oil A*2*A1NAG(DI|AA2 I /SPECL 
TS  CONTINUE 

C . OUTPUT  RESULTS .  NAINSATO 

MRITE  IA,  2SA0I  MX  MAINSAAO 

MRITEI2.2SA0I  MX 

2SA0  FORMAT  I10P0 . MX  •,  1PE1A.TI  MAINSAAO 

MRITE  IA.  2AA0I  TT31,  TMS1.  TTS2.  TMS2,  TTSS,  TMSS,  NAINSTOO 

.  TT11,  TM11,  TT12.  Tkll.  TT22.  TM22,  NAINST10 

.  SS11.  Sll.  SS22,  S22.  SS3S.  SSS.  NAIN3720 

.  SS12.  $12,  SS13.  SIS,  SS2S,  S23.  MAINS730 

.  PP1M,  PIN,  PP2M,  PIN,  NAINS7A0 

.  001,  01.  002,  02.  003,  OS,  NAINS7S0 

.  UU1,  NAGUIll.  PHASEUI1I,  NAIN37A0 

.  UU2.  PA GUI 21.  PMASEUI2I.  NAINS770 

.  UU3,  PAGUCI,  PHASEUI  SI.  NAINS7A0 

.  MAGUIAI,  PHASEUI Al,  MAINS7A0 


SOA 

SOS 

SOA 

S07 

SOA 


SIS 


SAA 

SAS 

SAA 


SA2 


SAA 

SAS 
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UN(03  COMMA  T  PHASE 

LINM3  -  EFN  SOUACE  STATEMENT 


12/31/49  000109 


.  EE1.  El.  EE).  E)  MAINStOO 

MAITE  (2.  24401  U21.  TM31.  TTJ2,  TU32,  TT33,  TN33,  PAIN3700 

.  '  TTU,  TUft.  TT12.  TN12*  TT22.  TU22.  NAIN3710 

.  SS11.  Sll.  SS22,  $22.  SS33.  S3).  PAIN3720 

.  SS12.  S12.  SS13,  S13.  SS23,  S23.  NAIN3730 

.  PPIN,  PIP,  PP2P,  P2P,  PAIN3T40 

;  OOf.  Oli  002,  02 .  '  00 3 »  03.'  "  PA1N37S0 

.  00 1,  PA 601 II .  PHASEUtll,  NAIN3740 

.  UU2,  NA6U12I,  PHASEUI2I,  NAIN3T70 

.  003.  NAGUI3I,  PNASE0131,  MAIN37A0 

.  NAC014I,  PHASE0141,  NAIN3790 

•  EEJt.  ft_l_eES.  EJ  HAtN3tOO 

2440* POP PAT  1 1H0.  2(X, 'iTHSTAESS  COMPONENT  S//4I 1H  ,  MX,  A),  4H  •  I,  PAIN3E10 
.  1PE14.7,  1H, ,  1  PE  14. 7,  1HW)/1H  ,  2(X,  PAIN3E20 

.  17HSTAAIN  C0PP0NENTS//4I1H  .  1«X,  A3,  4H  •  I.  NAIN3t30 

.  1PEM.7.  1H, ,  1PE14.7.  1HI/I/1H  ,  2SX,  PAIP3E40 

.  23XT1ME  AVEPASE  POPE A  FL0N//2I1H  .  19X,  A3,  4H  •  I,  MA1N3AS0 

_  .  1PE14.7.  1H, .  1PE14.7,  1HI/I/1H  ,  24X.  MAIN3M0 

21HELECTAIC  OISPLACEMENT/'/x'lH  .  14X,  A2,  4H  •  I,  PAIN3E70 

.  1PE14.7.  1H, ,  1PE14.7.  1HI/I/1H  ,  23X.  PAIN3EE0 

.  23HPECHANICAL  DISPLACEMENT/1H  ,  24X,  4KPAGN1T00E,  NAINSiTO 

.  7X«  5HPHASE/  31 1H  ,  MX,  A2,  3H  •  ,  1PE14.7,  0PP10.3/)/  NA1N3900 

.  1H  ,  4X«  3 OH ELECTRIC  POTENTIAL  PAGNI TUOE  *.  1PE15.7,  PAIN3410 

.  _  9H  PHASE  0PF9.3/1H0.  2 AX,  14HELECTA 1C  FIELD//  NAIN3420 

.  2UH“,  MX,  A2 ,  “4H  .  r,  IPETa'.T'.  1H, ,~  1PE14.7.  1HI/II  PAIN3430 

1502  FCAPATI2E13.il 

PUNCH  1502,  PIP, P2P 

PUNCH  1302,  Th31,TN32,Tk33,ml,TN12,TN22 

PUNCH  1502.S11.S22 ,S33, S12.S13.S23 

PUNCH  1504,  IPAGUUJ*fMPSEUU»«X-li4i-  .  . 

1504  FCAPATI E15.i,F10«3 I 
PUNCH  1502.Ei.E3 
PUNCH  1502,  01,02.03 
CO  li  1-1.4 

AARA-CCSI PHASEUI  11*3. 1415/1(0.  l*NAGUt  1 1 

_  _  illl-SINIPPASEUI 1 1*3.1413/1(0. MMAGUI 1 1  . . 

C ISPI 1 l-CNPLXI AAAA .A  II 1 1 
10  CCNTINUE 

IFIPL0TITI4I.E0.0I  GO  TO  72 
KAT2-KNT2P1 

AU1 IXNT2I-S0RT1AEALI C ISPI 3 1 I**2*A1NAGI01SPI31 1**21 /SPEC l 

AIUHXNT2l-PHASEUUJrPHASEUl3| _ 

72  CCNTINUE 

NAITEI4. 24411  tOISPI 11,1-1.41 
Nil TEI2.2441 1  I01SPI 11,1-1.41 

244 L  POA MAT 1 2 5X , 2 3HNECHAN 1CAL  DISPLACEMENT , 31 /23X, 2Elt.il, /,25X, 

1  20HELEC.  POT.  MAGNITUDE. /,23X, 2EK.il 

_ IF  (OMX  ,EC«  0.1  60  TO  ITCi  _  __  _ _  AAIN3940 

hX  -'NX  ♦  ONX  NAIN3950 

IF  IMX  .IE.  HXNAXI  GO  TO  1790  HAIN3940 

NX  •  SMX  MAIN3970 

GO  TO  170t  NAI N39i0 

2  CCNTINUE 


AEACIS.3I  (UNIT, ELIPIT. INCA 
3  FCAPATI31 5  I 


IFMSI 


12/91/49  000109 


LINB03  COM  MAY  PHASE 

LINB03  -  EFN  SOURCE  STATEMENT  - 


CC  4  I*BIIPIT«EL 1MIT  »INCR 

K-( I-BLIMIT )/ INCA* 1 

VSARAVUt-l 

VS»I 

SSO-VS 

CALL  ROOT  I  VSO  « VS *N • f VS • EPSLON* MAX )  431 

AAAAAI2*K-1>«AIMAGIFVS) 

IMAAI2«M«MM.irv$l 
CETRAVIKI-REALIf  VS  I 
CET 1 AY IK I ■ A I MAC I F VS I 

CEBUG  K.OETRAVIKI.OETIAVIX)  437 

4  CCNTINUE 

CC  9  JJ-l.K 

AAAAAI 2* JJ-1 I "AAAAAI 2*J J~1 )*1«E10 
A JAAAI2*J J l«AAAAAt 2«JJ)»1.E1Q 
CETRAYI JJt"GETRAVI JJ )*1«E10 
CETIAYIJJI-0ET1AYI JJ 1*1. E10 
JJJ«2*JJ-1 

If I AAAAAI J  JJ » .CT . 1 . I  AAAAAI JJJ I -I. 

If I AAAAAI  JJJl.LT 5  AAAAAI JJJI— 1. 

If I AAAAAI 2*JJ).GT • 1* I  AAAAAI 2* JJI«U 
IE I AAAAA(2*JJ I.LT #-l •)  AAAAAI2*JJI  — 1, 

IftOETRAVtJJI.CT.UI  OETRAVI JJI»U 
If  lOETRAYlJJl.LT  .-1.1  OETRAVIJJI  — l. 

If I OET IAYI JJ) •GT« !• I  0ET1AVI JJ 1-1. 

If!  OET IAY( JJ )«LT I  OETI AVI  J J  I  — I. 

5  CC  AT  I  HUE 
VMM*-!. 

CY-.2 

AM»NN«2*R 


CAU  SCALEI VSARAY • l5.0»Kt 1 #10. *XNIN*DX|  491 

CALL  AXISI0**Q.*2HVS  *2* 15.0»0.0*XHlh»0X» 10*01  693 

CALL  AXlSIG.«0..6HD€TERN,6ti0.,90.Q.VMIN,DY,10.»  495 

CALL  LINEI VSARAY tOETRAY 1»  1*4*  XM  IN*OX  *  YMIN  *OYI  497 

CALL  LINEI VSARAY #OET I AY «K| 1* 1*4»XMIN*0X* YMIN»DY)  699 

CALL  PLOT  1 17*  *0*  *-3)  701 

ICHECK«.f ALSE. 

CC  TO  17 

CALL  ENOPLT  704 

ERROR  PESSAGE  NUMBER  1 

END  MAIN3990 


ERROR  PESSAGE  NUMBER  2 


V 
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LINK)  3  CON MAY  PHASE  N4 


12/31/44  000104  PACE 


tISfIC  FOCT.*  OECK, DEBUG 


SLIPCUT |NE  PCOT  (VSO,  VS*  N,  FVS,  EPS*  PAX) 

CPOOT 


C  ININS  ION  SUB (24) 

CAT#  SUB/1  •  *-2*»  3* ,“4* ,5*  »-6.»  7. ,-B* , 9#  »"-10.,ll*,l*,l*,l.*l.,l 
U  2*  .2* « 3* *5** 10* ,50*  *lOC*f 100*/ 

C  AT  A  KKKKK/O/ 

CATA  KICK/1/ 

CCNPCN  /GET/GETOUT 
CtN*CN/PLOTS/ I CHECK 
ICGICAL  GETCUT 
LCGICAL  PKEV 
CATA  PA6V/ .FALSE./ 

ICGICAL  ICPECK 

CCMKON  /FBQQT /  FVSNAG*  NT,  (CASE 

•  /ALESS/  IALF 

CCMPLEX  F,  FVS*  FXO*  FXlf  FX2*  FX3*  G2.  LANCA3*  BOUNO* 

•  T*  Tl*  T2 »  EL 

BEAL  LAN0A2 

LOGICAL  1ALF 

CATA  TEN10/UE4/ 

KKKBMKKKKMl 

FACT1M.01 

FACT2-1.00S 

I F ( KKKKK/2*? .NE.KKKKK)  FACTI-.99 
IF(KKKKK/2*2*NE.KKKKK)  FACT2-.995 
K  •  0 
VS  •  VSO 

fvs  •  BCLNCIFI VS) I 

IFI  IALF  )  GO  TO  600 

IFI  IChECK)  GO  TO  530 

IF(  NAX  • EC*  0  I  GO  TO  530 

IFI  FVSNAG  .LT.  EPS  )  GO  TO  530 

FXO  -  FVS 

VS*f ACTI*VSC 

FVS  *  ROUND!  FI  VS  I  I 

IF!  IALF  I  GO  TO  600 

IF!  FVSNAG  *LT*  EPS  )  GO  TO  530 

FXl  *  FVS 

X2-FACT2*VSC 

VS  •  X2 

FVS  *  ROUND!  FI  VS  )  I 
IF!  IALF  I  GO  TO  600 
IF!  FVSNAG  .LT*  EPS  I  GO  TO  530 
FX2  -  FVS 

h2*l-l.)*4<KKKKK-l lA.OOSAVSO 
IANCA2  *  -0*5 


BOOT0030 
BOOT 0020 
BOO TO 040 


B00T0050 
BOOTOOiO 
BOOTOOTO 
BOO TO OB 0 
BOOT 0040 
BOOTOIOO 
BOOTOllO 
B00T0120 
BOOTO130 
B0QT0140 


B0OT0150 

BOOT0160 

B00T0170  a  9 

BOOTOllO 

BOOTOllO 

BOOT02OQ 

B00T0210 

B00T0230  22  23 

B00T0240 

B00T0250 

BOOT 0260 

BOOT02BO 

B00T0290  30  31 

B0QT03O0 

B00T0310 

B0QT0320 


BOOT 0340 
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LIW03  COM  HAY  PHASE 

ROOT..  -  EFN  SOURCE  STATEMENT 


N4 
IFNI  S) 


12/31/49  000109  FACE  13 


CELTA2  •  0.9  R00T0350 

ROOTO340 

C.....9  EfilN  ITERATIO  !!•«•••  R00T0370 

230  G2  -  f  XO*l A*C A2*l AMO A2  -  FX 1*0EL TA2*DEL T A2  ♦  FX2*(LANOA2  ♦  OELT A2) R00T0390 
T  -  C&OAT (G2*C2  -  4.*FX2*0ELTA2*t AM0A2*<FX0»tAM)A2  ROOT 0390 


.  -  FX140ELTA2  ♦  FX  213 

Tl  •  62  ♦  T 
12  -  62  -  T 
T  •  Tl 

IF  (CA9SIT2)  .GT •  CARS! Till  I  •  T2 
IF  (CA9SITI  .EO.  0.)  60  TO  930 

300  LANCA3  -  -«.*FX2*DELTA2/T 
VS  *  X2  ♦  REAHLANCA34H2 1 
fVS  •  ROUND! FI VS 1 1 
Ifl  IALF  1  60  TO  -400 
IFI  FVSNAG  .LT.  EFS  )  GC  TO  930 
A  •  N  ♦  1 

IFIN.GT.NAX)  GO  TO  ACC 
43  ■  VS  -  X2 
LAMCA2  -  H3/H2 
CELTA2  •  1.  ♦  LAM0A2 


FXO 

FX1 

fX2 

X2 

H2 


•  FXl 

•  ,'•* 

-  FVS 

•  vs 

»  H3 


IF  IH2  .NE«  0.)  GO  TO  230 


ITERATION. 


ROOT 0400 
ROOT  041 0 
ROOT0420 
ROOTO430 
ROOT 0440 
R00T0490 
ROOTO440 
R0QT0470 
R00T04I0 
ROOT 0490 
ROOT0900 
R0OT0910 
R00T0920 

R00T0940 

R0QTO55O 

R00T09A0 

ROOT0970 

R00T0990 

R00T0990 

RDOTO600 

ROOTOAIO 

R00T0620 

R0OT0630 

ROOT0640 


C . E  NO  OF 

930  CCNT1NUE 

IFIMEV)  PREV-.FALSE  . 

RKRRK-0 

RICK-1 

REURN 

400  HRITEC6.1000)  VS  R00T0660 

1000  FCRNATI  ///  91H  . LESS  THAN  4  ALPHAS  HITH  A  POSITIVE  REAL  PART  R00T0670 

4  /  32H  . CASE  TERMINATED  (  VS  -  *  1P614.7,  2H  )  ti  )ROOTO660 

IFIICHECK)  GO  TO  5  30 


IFI KKKKK/2*2.NE.KKKMO  GO  TO  999 

VSO-VSO-SUBI R ICR  I 

RiCR-KlCRM 

lflRlCX.EC.29l  CO  TO  999 
999  REURN  1 
999  CONTINUE 

IFIPREVI  GETOIT-.TAUE. 
f RE V-.TRUE. 

R  ICR-1 
RETURN 

GC  TC  530  R00T069Q 


40 


41  42 

45 


90  91 


ERROR  MESSAGE  NUM9ER 
ENO 


1 


ROOTOTOO 


169 


170 


\ 


11*101 

SETCr  • 


Cll.l 

*1*1! 

6(1) 

COO 

.2.21 

6(2) 

CO.! 

•  3.3) 

6(3) 

C<1.1 

•  2.2) 

6(41 

0(2.2 

.1.1) 

6(4) 

Cll.l 

•  3.3) 

G(5> 

CO.l 

a. n 

6(5) 

Cll.l 

•  2.31 

6(4) 

Cll.l 

.3.2) 

6(4) 

CI2.1 

•  I. 11 

6(4) 

Cll.2 

.1.11 

6(4) 

011.1 

.1.31 

6(7) 

Cll.l 

*3.1) 

6(7) 

Cll.l 

li.l) 

6(7) 

0(3.1 

.1.1) 

6(7) 

Cll.l 

>1.2) 

G(t) 

Cll.l 

.2.1) 

6(1) 

Cll.2 

>1.1) 

6(1) 

CO.l 

1.1) 

6(4) 

CI2.2 

3.3) 

G(9) 

Cll.l 

2.2) 

6(9) 

CO. 2 

2.3) 

6(10) 

CI2.2 

3.2) 

6(10) 

CO.l 

2.2) 

6(10) 

013.2 

2.2) 

6(10) 

COO 

1.3) 

6(11) 

0(2.2 

3.1) 

6(11) 

CI1.3 

2.2) 

6(11) 

CI3.1 

2.2) 

6(11) 

00.2. 

1*2) 

6(12) 

00.2. 

2.1) 

G(  12) 

0(1.2. 

2*2) 

6(12) 

00.1. 

2.2) 

G(  12) 

CO.l. 

2,3) 

6(13) 

Cll.l. 

3.2) 

6(13) 

CO.l. 

3,3) 

G(  13) 

Cll.2, 

3.3) 

6(13) 

Cll.l. 

1,3) 

6(14) 

011.1. 

3.1) 

6(14) 

Cll.l. 

3.3) 

6(14) 

CO.l. 

3,3) 

6(14) 

CO.l. 

1.2) 

6(15) 

00.3. 

2.1) 

6(15) 

Cll.2. 

3.3) 

6(15) 

CO.l. 

3.3) 

6(15) 

CO.l. 

2.3) 

6(16) 

COO, 

3.2) 

6(16) 

COO. 

2.3) 

6(16) 

coo. 

3.2) 

G(  16) 

coo. 

1.3) 

6(17) 

coo. 

3.1) 

6(17) 

coo. 

1.3) 

6(17) 

0130. 

3.1) 

6(17) 

011,3, 

2.3) 

6(17) 

CO.l. 

2,3) 

G(  17) 

011.1. 

3.2) 

6(17) 

CONhAT  PHASE 

tHI  SOUACE  STATEMENT 


NA 

IENIST 


12/11/ *9  00010*  MACE 


CTE00490 

CTEOOSOO 

CTE00510 

CTE00920 

CTE00510 

CTE00540 

CTEOOMO 

CTE00S60 

CTEOOSTO 

CTEOOMO 

CTEOOMO 

CTEOOMO 

CTE00410 

CTEOOMO 

CTEOOMO 

CTEOOMO 

CTE006S0 

CTEOOMO 

CTE00470 

CTEOOMO 

CTEOOMO 

CTEOOTOO 

CTEOOUO 

CTE00720 

CTE00710 

CTE00740 

CTEOOTSO 

CTE00740 

CTE00770 

CTE00700 

CTE00790 

CTEOOMO 

CTEOOUO 

CTEOOMO 

CTEOOUO 

CTEOOMO 

CTEOOMO 

CTEOOMO 

CTEOOETO 

CTEOOMO 

CTEOOMO 

CTEOOMO 

CTE00910 

CTE00920 

CTE00910 

CTE009A0 

CTEOOMO 

CTEOOMO 

CTE00970 

CTEOOMO 

CTEOOMO 

CTEOlOOO 

CTE01010 

CTE01020 

CTEQ1030 

CTE010A0 


IS 


V 
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L IK8Q3  CON MAT  PHASE 

SETCI.  -  EFN  S 00 ACE  STATENEAT 


NA 
IFNI  SI 


12/31/49  00010*  FACE  U 


Cl). 1,3.21  a  CIITI 
Cl?, 3. 1.21  •  GIKI 
CC2.3.2.1I  a  Gilt) 
0(3.2.1,21  «  GIUI 
0(3,2,2.11  •  Glial 
C(  1  .2.2.3 1  •  GIKI 
CI2.1.2.3I  «  GIKI 
Cll.2.3.21  a  GIKI 
CI2.1.3.2I  •  GIKI 
011.3.1.31  a  GIKI 
C(1  .3.3.1 1  •  GIKI 
013.1.1,31  •  G( 191 
CI3. 1.3. II  >  GIKI 
0(1,3.1,21  *  GI20I 
C 1 1 .3,2.1 1  •  GI20I 
CI3.1.1.2I  a  GI20I 
0  3.1,2,1)  a  GI20) 
01,2.1.31  «  Cl 20 1 
02.1.1,31  •  GI20I 
01.2.3,11  .  GI20I 
012. 1.3. II  «  GI20I 
01.2.1.21  a  GI21I 
01.2.2.1)  •  GI21I 
02,1.1,21  <  CI21I 
02.1,2.11  a  G( 2 1 1 

01,1.11  •  Fill 

01.2,21  «  PI2I 
01.3.3)  >  Fill 
01,2.31  >  PI4I 
01.3.21  •  FIAI 
01.1.31  •  FIJI 
01,3.11  a  FIJI 
01,1.2)  •  FIAI 
01.2.11  -  FIAI 
02.1.11  •  FI  71 
02.2.21  •  Fit) 
02,3,31  a  Fill 
02.2,31  •  FI  101 
02.3.21  «  PI  10) 
02.1.31  •  FI  111 
02.3,11  •  Fill) 
02.1.21  •  PI  121 
02.2,11  •  FI  121 
03.1,11  •  FI  131 
03,2.21  •  PI  14) 
03.3.31  a  FUJI 
03,2.31  «  FI  16) 
03.3.21  a  PI1AI 
03.1.31  >  FI  171 
03.3,11  •  FI  171 
03,1.21  a  F(  K) 
03.2.11  a  F(  i(| 

Cl  II  aFFll.l.l.ll 
Cl  21  »FF( 1 ,1,3,31 
Cl  31  *FF( 1.1.2,31 
Cl  41  -FEIl, 1,1,31 


CTE010S0 

CTEOtOAO 

CTE01070 

CTEOIOAO 

CTE01090 

CTEOtlOO 

CTE01U0 

CTE0U20 

CTE01130 

CTE0U40 

CTE01 ISO 

CTE0U40 

CTE01 170 

CTE01K0 

CTE01 190 

CTE01200 

CTE01210 

CTE01220 

CTE01230 

CTE01240 

CTE01250 

CTE012A0 

CTE01270 

CTE01280 

CTE01290 

CTE01300 

CTE01310 

CTE0132C 

CTE01330 

CTE01340 

CTE01350 

CTE013A0 

CTE01370 

CTE013SO 

CTE01390 

CTE01400 

CTE01410 

C7E01420 

CTE01430 

CTE01440 

CTE01450 

CTEOUaO 

CTE01',70 

CTE01480 

CTE01490 

CTE01500 

CTE01S10 

CTE01S20 

CTE01 530 

CTE01540 

CTE01550 

CTE01560 

CTE01570  a 

CTE01580  9 

CTE01S90  10 

CTE01A00  11 
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L1N603  COMtfAY  MUSI  N4  12/31/4*  00010*  FRGE  IT 

SfTCT.  -  EFN  SOURCE  SUTERCM  -  IFRIS1  - 


Cl  51  *FFIJ,J.3.JI 

CTE01610 

12 

Cl  (.1  -FF1 3,3.3.31 

CT 601620 

13 

Cl  71  -FFI3.3.1.3I 

CTE01630 

14 

Cl  •)  »FFI 3,3.1.21 

CTE01640 

13 

Cl  41  -FFI2. 3.2.31 

CTE01650 

14 

CI10I  ■FFI2.3.1.3I 

CTE01660 

17 

Cllll  •FFI2.3.1.2I 

CTE01670 

It 

C 1 1 2  1  »FFI 1.3.1.31 

CTE01660 

19 

CI13I  •FFIl.3,1,21 

CTE01690 

20 

Cl 14 1  •FFI1.2.1.2I 

CTE01700 

21 

CI1SI  "FFI 1.1.1.21 

CTE01710 

22 

Cl  161  *FFI1.1.2.2I 

CTE0172O 

23 

Cl  17 1  -FFI2.2.1.3I 

CTE01730 

24 

CI10I  »FFI 2.2.1*21 

CTE01740 

23 

Cl  191  *FFI 2.2.2.31 

CTE01750 

26 

CI20I  »FFI 2.2.3.31 

CTE01760 

27 

IFI.NOT.  RCTATEI  CO  TO  1601 
CFMl.ll-FFll.l.l.ll 

31 

:fimi.2i«ffii.i.2.2I 

32 

CFRI1.3I*FFI*  1.3.31 

33 

CFRI1.4I"FFI 1.1.2. 31 

34 

CFRIl.Sf.FFI 1.1.1.31 

33 

CFRI1.6I-FFI1.1.1.2) 

36 

CFRI2.2I-FFI2.2.2.2I 

37 

CFRI2.3I-FFI2.2.3.3I 

38 

CFRI2.4I*FFI2.2.2.3I 

39 

CFRI2.SI«FFI2.2.1.3I 

40 

CFRI2.6I-FFI2.2.1.2I 

41 

CFRI3.3I*FFI 3,3. 3. 31 

42 

CFRI3,4I«FFI 3.3.2. 31 

43 

CFA I3«S)»FFI 3.3.  1.31 

44 

CFR 13.61 "FFI3.3. 1.21 

45 

CFRI4.4I.FFI2. 3.2. 31 

46 

CFRI4.3I.FFI2.3.1.3I 

47 

CFRI4,6l«FFI2,3.1.2l 

48 

CFRIS.5I*FFI 1.3.1.31 

49 

CFRI9.6I.FFI 1 .3.  1.21 

50 

CFRI6.6I-FFI1.2.1.2I 

51 

CCNTINUE 

CO  10 

1*1*20 

CTE01770 

if i  me 

cm  :  .li.  clim  i  cm  -  o. 

CTE01780 

CONTINUE 

CTE01790 

E(  11 

Rl 1*1*1) 

CTE01800 

63 

El  2) 

Rl 1*3*3) 

CTE01810 

64 

E(  2) 

Rl 1*2*3) 

CTE01820 

65 

El  4) 

Rl 1*1 *3) 

CTE01830 

66 

El  51 

Rl 1*1*2) 

CTE01840 

67 

El  6) 

Rl 3*1*1) 

CTC01850 

68 

El  7) 

Rl 3*3*3) 

CTE01860 

69 

El  8) 

Rl 3*2*3) 

CTE01870 

70 

El  9) 

Rl 3*1*3) 

CTEQ1IB0 

71 

El  101 

Rl 3*1*21 

CTEG1690 

72 

EIU) 

Rl 1*2*2) 

CTE01900 

73 

El  12) 

Rl 3*2*2) 

CTE01910 

74 

E 1 13) 

Rl 2* 1 *1) 

CTE01920 

75 

El  14 ) 

Rl 2*3*3) 

CTE01930 

76 
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IIN803  CONfcAY  PHASE  N4 

SErCT.  -  EfN  SOU  ACE  STATEMENT  -  IFMSI 


12/31/41  000104  PACE 


E  1 151  •  AI2.2.3) 

€4161  -  P.  I  2 » 1 . 3 ) 

El  171  >  *12.1.2) 

IF! .NOT.  ACTATEI  GO  TO  1602 
EF*( 1 «1 )*A4 1« 1*11 
EP*(1. 21*4(1. 2.2) 

FP* ( 1  *  3  J*A  1 1 .  3.3 ) 

fP4(1.4)*4( 1.2.3) 

EP4(1.5)*4(1. 1.3) 

EP4(1.6)*4( 1.1.2) 

EP4(2. 11*4(2.1.1) 

EP4 (2.21*4(2. 2.2) 

EP4(2.3)*A(2.3.3) 

EP4  (2.4 1*4(2. 2. 3) 

EP4(2.S)*4(2.1.3) 

EP4 (2.41*4(2. 1.2) 

EP4 (3. 11*4(3. 1.1 I 
EP4I3.2 )*4( 3.2.2) 

EP**3.3I*«I2.3.3> 

EPfU3.4)*X(3.2.3) 

EP4().S)«4(3.1.3) 

EP4(3.6)*4(  3. 1.2 j 

1602  CONTINUE 

CO  20  1* 1.17 

IFI  A9SI  Ell)  )  .IT.  Ell*  I  Ell)  *  0. 

20  CCNTINUE 

EPSICNl 3.2  )  -  EPSIONI2.3) 

EPSICNl 2. 1 )  •  EPS10NI1.2) 

EFS10NI3.1)  •  EPSICNI 1. 3) 

Til)  *  TljCl.il 
TI2)  •  TIJI1. 31 
TI3 I  -  TlJ (3.3) 

TI4)  -  T1JI2.1I 

TI5 I  •  TIJI2.3I 

IFf.NOT.  AOTATEI  GO  TO  1603 

EPSF«ll.ll-TlJll,l) 

EP$PA(1.2!*T!J(1»2 ) 

E PSP* 11.31 “TIJI1.3I 
EPSPR(2.1)*TIJ(2,1I 
EPSP4I2.2 )*TI J(2.2  ) 

£PSPA<2.3I*TIJ(2.3) 

EPSPK3.1  l*TI  J(3.1 1 
E’$P4(3.2I*TIJ(3.2I 
EPSP443.3)*TIJ(3.3I 

1603  CCNTINUE 

CC  30  1*1.5 

IF!  A0S(  Till  I  .IT.  TLI*  )  Til)  •  0. 

30  CCNTINUE 

C . SEE  IF  PIEZ0EIECT4IC  COEFFICIENTS  APE  All  . . 

NBETA  «  3 
CC  470  K  «  1.  18 
IF  (PI  Kl  .NE.  0.)  GC  TO  490 
670  CCNTINUE 
N8ETA  *  2 
490  CCNTINUE 


CTE01940 

CTE01950 

CTE01960 


100 


CTE01970 
CTE01480 
CTE01990 
CTE02000 
CTE02010 
CTE02020 
CTE02030  112 

CTE02040  113 

CTE02050  114 

CTE02060  115 

CTE02070  116 

120 

121 

122 

123 

124 

125 

126 

127 

128 

CTE02080 

CTE02090 

CTE02100 

CTE02U0 

CTE02120 

CTE02130 

CTE02140 

CTE02150 

CTE02160 

CTE02170 

CTE02180 


18 


V 


IIMOS  CONWY  PHASE  ||* 


IUFTC  RCUNO.  CECR 
CRCUNC 

CCNFIEX  FUNCTION  ROUND  (FI 
RtAl  I.  FI2I 
*  «  Fill 
I  *  FIJI 

IF  IN  .EO.  0.  •OR.  I  ,E0.  0.1  CO  TO  IOC 
IF  IABSM/RI  .IT.  1.E5I  CO  TO  SO 
R  *  0. 

CC  TO  100 

SO  IF  IABSIR/II  .66.  1.651  1  «  0. 

100  RGUAO  •  CNFLXIR.  I  I 
RETURN 
END 


12/31/AS  00010* 


ROUN0020 

ROUNOOIO 

ROUN0040 

ROUNDOSO 

ROUNOOAO 

ROUNOOTO 

ROUNOOIO 

ROUNOOIO 

ROUNOIOO 

R0UN0110 

R0UN0120 

ROUNOISO 

ROUNOIAO 
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RACE  20 


L INB03  CONN A V 


FMAS6 


N4 


12/31/44  000104 


CCSFUA 


:  CSFUN.  OCCK 

t 

CSFUN020 

SUBROUTINE  CSFUN  IV,  AX,  SX,  CXI 

CSFUN030 

CCUBLI  PRECISION  AX*  SX*  CX 

CSFUN040 

X  •  V 

CSFUN050 

IF  (X  •IT#  0*1  X  •  X  ♦  340. 

CSFUN060 

IF  IX  .EO.  C.  •OR*  X  .EG.  ISO. 1  CO  TO  150 

CSFUN070 

IF  IX  *10.  *0.  .04.  X  .60.  270.1  CO  1C  200 

CSFUNOBO 

SX  »  OSINIBX) 

CSFUNOBO 

CX  •  OCOSIRX) 

CSFUN100 

HE  TORN 

CSFUNUO 

CX  •  1. 

CSFUNUO 

SX  •  0. 

CSFUNUO 

IF  IX  .60.  1B0.I  CX  •  -1. 

CSFUNUO 

CC  TC  100 

CSFUNUO 

SX  •  1. 

CSFUNUO 

CX  a  0. 

csfunuo 

IF  IX  .EO.  270.)  SX  •  *1. 

CSFUNUO 

CC  TO  100 

CSFUNUO 

ENO 

CSFUN200 

10 

11 
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Ll*fi03  C0N4AV  PHASE  N4 


12/31/45  000109  9*06 


MBFTC  FF....  DECK 


CFF  FF000020 

CCU RLE  PRECISION  FUNCTION  FF  (I,  J,  K,  LI  FF000030 

CCNPCN  /FRT/  GANNA! 3«  3) «  013,3.3.31.  0(3,3,31  FFOOOOVO 

DOUBLE  PRECISION  GANNA •  0,  0  FF000050 

INTEGER  R,  S.  T*  U  FF000060 

Ff *  0.  FF000070 

CC  50  «  •  1,  3  FFOOOOIO 

CC  50  S  •  1.  3  FF000090 

CC  50  !  *  1*  3  FF000100 

CC  50  U  «  1.  3  FF000110 

50  Ff-FF  ♦  GAMNAU«RI*GANNA( J, S 1«GANNA< K, T )*GANNA It *U)*0(R»S , T ,U>  FF000120 

RETURN  FF000130 

END  FFOOOUO 


22 
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11NI03  CONWAY 


12/31/65 


00010* 


YAM  21 


AIBFTC  A.  Of CY 


CA 


10 


CCUBIE  FAEC1SI0N  FUNCTION  *  (t.  J.  *» 

CCNNCN  /FAT/  6AHNAI3.3I.  DI3.3«3.3».  013.1.11 
COUBIE  FAECISION  GANNA.  0.  0 
INTEGER  S.  T.  U 


A  •  0. 

CO  50  S  *  1.  3 
CC  50  T  *  1.  1 

♦  DAKHAU.SI*CA«MAU.n*GAH«AU.U»*0<S.T.t» 


RETURN 

IKO 


ROO 00020 
A 00 00 030 
AOOOOOAO 
A 0000  050 
A0000060 
A 0000070 
AOOOOOtO 
A 00  00090 
A0000100 
A0000110 
A0000120 
A 0000130 


a 

\ 

\ 


i 

5 

i 

€ 

) 


\  I 

i 


$ 

\ 


J79 


l INB03  CONWAY  PHASE  N*  12/31/AS  000109  WAGE  29 


FIBFTC  T1J.  DECK 


CtlJ  T1J00020 

DOUBLE  PRECISION  FUNCTION  TIJ  (1.  Jl  TIJ00030 

CCMNCN  /FAT/  GAPNAI3.3I.  JUNM106I  TIJOOOAO 

COW  WON  /GPEPS/  GC  21 1 .  PI1BI.  EPSIGM3.3I  TIJ00050 

CCU6LE  PRECISION  CAMPA,  JUNK  TIJOOOAO 

INTEGER  R.  S  TIJ00070 

TIJ  •  0.  TtJOOOaO 

CC  SO  R  •  1.  3  TIJOOOAO 

CC  50  S  •  1»  3  TIJ00100 

50  TIJ  •  TIJ  ♦  GANMAt I .R I •GAWHAI J , SI'EPSCONIR , S I  TIJObllO 

RETURN  T1J00120 

FNO  TIJ00130 
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t 


L 1NB03  CCNHAY  PHASE 


N4 


12/31/69  000109  PACE 


SI6PTC  f .  DICK 

F 0000020 
F00 00030 
FOO 00 040 
FOOOOOSO 
F  00  00  060 
FOO 00070 
FOOOOOSO 

F 0000100 
F0000110 
FOO 00 120 
F0000130 
F0000140 
F 0000150 
F0000160 
F0000170 
F 0000180 
F0000190 
FOO  00  200 
F0000210 
F0000220 

FOO 00239 
F0000240 
F0000250 
FOO 00260 
F0000270 

CCMPIEX  611.  612,  B 1 3 «  614.  622.  623.  624.  633.  834.  644.  AK,F0000280 

86I3.4I.B8H 3.3I.6ETAB1I4I. 

61AI 2*31 .BET AX( 2 ) .CXO.CXl . BIB (4.4 1 

PEAL  MUA.  LAMCAA.  HUB.  LAMCAB,  NUB.  CA (4  .4) .  C6 (4 .4  I ,  F0000300 

CO (4. 4 )  .  CC( 201 «  CE ( 17) •  CTI5),  810(2,4,4)  F0000310 

LOGICAL  ALL.  ROOTS,  (TER.  COEFF,  DETERM.  POLVN,  ALPHA,  BETA,  F0000320 

FXAGNl ♦ 

ACAP  F 0000330 

LCGICAL  AC12,  AC23,  AC24,  AC14.  AC34.  I ALF  F0000340 

FOO 00350 


C (MENS  ION 

ALAH( 3,2), 

1A1(3),  I A  2  (  3)  • 

LABO) 

FOO  00360 

CIMENSION 

eixi4). 

NB(  4 

F0000370 

EQUIVALENCE 

(EL* 

ELL), 

(  Bl,  810  ), 

F0000380 

CCCI 1 ) 

•  Cll 

,  (CC( 2  I ,  C13), 

(CCO), 

C14 ) , 

(CC(4),C15) 

,F 0000390 

(CC( 5 ) 

,  C33 

•  (CC( 6  I «  C34), 

(CC( 7) • 

C35I, 

( CC  ( 8 )  ,C36 ) 

, FOO 00400 

( CC( 9) 

.  C44 

,  (CC( iO),C45), 

iccm>.c<>6). 

F0000410 

(CC( 12 ) ,C55 

,  (CC(  13),C56), 

(CC(14) 

C66 )  * 

FOO 00420 

(CC( 15 ) ,C16 

*  (tEU),  Ell), 

(CE  f  21  • 

El 3 ) . 

F0000430 

(CEO) 

.  E14 

•  ( CE ( 4  ) ,  El  5 ) , 

(CEO)  , 

E16). 

F0000440 

( CEO) 

,  E31 

,  (CE( 7 ) .  633), 

(CE ( 8) , 

634), 

FOO 00450 

(CEO) 

,  635 

•  (CE( 10) ,E36) , 

(CT(  1 1  , 

Til). 

FOO 00460 

ICT( 2) 

.  T 13 

.  (€1(3),  T33I 

FOO 00470 

tnnnruftn 


CF 

C* 

C* 


THIS  FUNC TIC N  EVALUATES  THE  L  DETERMINANT  FOR  A  VALUE  Cf  VS 
FOP  EITHER  THE  LITHIUM  OR  COLO  LITHIUM  CASE 


CCMRLEX  FUNCTION  F  (VS) 

CCMMCN  /22T2/  CC.CE.CT 
CCMMCN  /FPOOT/  FVSNAC,  NT.  (CASE 
/8ETAN/  NBETA 

/CSET 1/  AC12.  AC23,  AC24,  AC  14,  AC34 
CCMMCN  /LINK  /  ALFAI6) «  ALFAM8).  EL(IOO),  ALFAA(6), 

ALFA6(4),  BET AA (3.6)  ,  BETAS (4.4) ,  EPSO, 

MCA,  LAMDAA.  RHOA.  MLB,  LAHCA8,  NU0.  RHQB. 
VSX.KS,  EPSLON.  DIGIT.  MH,  WXA,  MX8,  KL, 

KM.  AU.  ROCTS.  ITER.  COEFF.  OETERM.  POLVN, 
ALPHA,  BETA.  MAX 
/CIA/  1  A(  4) 

/CCM  /  ACAP.  EPSR 
/CPEPS/  XC(2 1 ) •  XP( IB) .  XEPSI9) 

/aless/  ialf 
/cifl/fxagnl 


COMPLEX  ALFA.  FVS.  EL.  EA(6),  EB(4).  UA(3).  U6(3).  ALFAI. 
ALF AA •  ALFAB.  8ETAA.  6ETAB •  P0LYI9).  JIMAG, 
61(4.41.  CA,  CB,  OC.  ELK  1C, 10) •  ALF (8) ,  A0L0I9) 
COMPLEX  ALF1,  ALF 2,  XELI100).  XXEL(3.3) 


25 
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UNB03  CONtoAY  PHASE  N4 

F .  -  BfN  SOU  ACE  STATEMENT  -  IFMSI 


12/3 1/44  000109  FACE  24 


30 

32 

37 

*2 

47 

43 


i 


CONWAY  PHASE  N4 

EFN  SOU AC 6  STATEMENT  -  !FN(S)  - 


12/31/69  000109 


630  CCNT1NUE 

1F(  K  .IE.  1  I  GO  TO  63* 

IFI  AC12  .AND.  AC23  )  CO  TO  631 

IF(  NBETA.EC.2  .AND.  K.F0.3  I  CO  TO  660 

CO  TG  634 

631  IFI  NbETA  .EC.  2  I  CC  TO  400 
IF(  .NOT.  AC24  )  GO  10  636 
IC  -  1 

I  Ft  K  «E0.  3  )  CO  TO  140 

632  MA1TF<6.633)  t  ALA6(I*1C)»  1-1*3  )•  K 

433  FCAMATI  ///  16H  •••  CECENERATE  .3A4.3H  (.12.9H  ALPHAS  >  I 

634  IALF  •  .TALE. 

CC  TO  1357 

636  IF(  .NOT.  <  AC14.AN0.AC34  )  1  CC  10  634 
GC  TO  280 

637  'RITEI6.63EI  A 

43«  iCAPATt  ///  23H  •••  NUMBER  OF  ALPHAS  -.12* 

•  20H  -  CASE  TEAMINATEO  /  I 

CC  TO  634 

440  IF  (NBETA  .EO.  21  ALFAB(4|  -  (C«*0.) 

IF(  ROOTS  .OR.  ALL  I  WRITEI6.708  )  t  ALfAB(K).  K-l *4  ) 

760  format  t 2 0ho intermediate  positive  roots//! ih  ,  ipbei3.5u 


C..... CALCULATE  EETA  0 
*4  -  NbETA  ♦  1 
010  CC  500  K  -  1*  K4 
Biti.ii  «  Bin 
61(1. 2)  -  012! 
61(1*3)  •  013( 

61(1*4)  -  0141 

61(2.2)  -  622! 
01(2.3)  *  6231 

ei(2.4)  -  6241 

ei(  3.3)  -  032! 

BK3.4I  -  6341 

ei(2.1)  •  61(1.2 

610.1)  •  61(1*3 
6 ' ( 3*21  •  61(2.3 
IF  NBETA.EC.2)  Gl 
61(4.1)  —61(1*4 
61(4.2)  —01(2.4 
61(4,3)  —61(3,4 
61(4.4)  -  B44(  Al 


«  l.  R4 

B1H  ALFA8IK) 

ei2(  alfab(ki 
61 3(  ALFAB(K) 
0141  ALFA6U) 
6221  ALFAB(K) 
623(  ALFAB(K) 
6241  AL  FAB(K  ) 
6321  ALFAe(K) 
634(  Al  FAB(K) 
61(1.2) 

61(1*31 

61(2*3) 

EC. 2)  GO  TO  94C 
-61(1.4) 

-81(2.4) 

-61(3,4) 

B44(  ALFAB(K)  ) 


IFIA.GT.il  GO  TO  630 

C . CfCCK  FOR  DEGENERATE  CASES . 

CG  020  1-1.4 
NBI  II  •  0 
CC  e20  j-1,4 

IFI  81DC1, I,J).EO.O.  • ANO,  BID! 2,1 • J ) .EC.O.  I  N6(l)  >  NB(|)  ♦  l 
020  CONTINUE 

IFI  N8I2I  .EC*  3  )  GC  TO  100 

IFI  N8(  1)  ,NE*2  .OR.  NB(2),NE.2  .OR.  NBOI.NE.2  .OR.  N6I4I.NE.2  ) 
•  GC  TC  630 

GC  TC  200 


F0001050 
F  0001060 
F 0001070 
F0001072 
F0001074 
FOOO1O0O 
F0001090 

foooiioo 

F0001110 
F 0001 120 
F0001130 
F0001140 
F0001 150 
F0001160 
F 0001 170 
F0001180 
F0001190 
F0001200 
F0001210 
'  F0001220 
F0001230 
F 0001240 
F0001250 
F0001260 
F0001270 
F0001260 
F0001290 
F0001300 
F 0001310 
F0001320 
F0001330 
FOOOl 340 
F0001350 
F0001360 
F0001370 
FOOOl 360 
FOOOl 390 
F0001400 
f 0001410 

F0001460 

F0001470 

F0001460 

F0001490 

F0001440 
F0001450 
F0001500 
F0001510 
FOOOl 520 
FC001530 
FOOOl 540 
F0001550 
FOOOl  560 
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1. 1*803  CCNtaAY  PHASE  N4  12/31/69  000109  PACE 

F...M  -  EFN  SOURCE  STATEMENT  -  If  MSI  - 

c . PIEZOELECTRIC . 

830  1FI  ACAP  )  HRITEI6.975)  K»  (  (  81(1.41.  4*1.4  ),  1*1.4  )  185 

CC  £50  1*1.3 
CC  £40  4*1.3 

840  £10(4. 11*81(4*1) *TEN 
818(4. l>*61<4.|) 

850  810(1.41-01(1.4) 

810(4.41*01(4. 4) *IEN 10 
KK-4 

If ( FXAGNL I  GC  70  9C0 
860  CC  £70  J-1.4 
CO  670  1*1.3 
870  BBC !.J)*B18( 1.4) 

If<  ACAP  I  HR1TEI6.075)  K.  (  (  88(1.41.  4-1.4  ).  1*10  )  222 

•75  FORMAT ( 4H0bb ( .11 .1H) .// ( 1H. 1P8E 13. 5) ) 

CALL  CMATSC68.BETA81 (11.3.1.819(0)  231 

880  8ETAB1(AK)*CX1 

0ETAB(4.K)*8ETAHl(4) 

CO  890  J-1.3 

•90  BETAS ( 4. K )*8E1AB1( 4)*T£h 
GC  TC  980 

C.*.« •£ EX  AGONAL  CRYSTAL . 

900  CC  910  4*1.3 
CC  910  1-1.3 
910  881(1. 4)*B1B( 1.4) 

CALL  COET( e61.3.FVS.KEXP|  253 

rvSMAG*CA0S(fVS)  255 

IF( FVSMAG.GT •  l.E-5 )  CO  TO  860 
KK*1 

CO  530  1*1.3 
CO  520  4*1.3 

920  BB(  l.4l*B18( IA1.441I 
80(  I. 21* -tied. 31 
930  BB( 1 .4 )— BIB  ( 141,1  I 

IF(  ACAP  )  tfft!TE( 6 .875)  K,  (  (  BB( I • J» •  4*1.4  ),  1*1.3  )  274 

CALL  CMATS(B0.8ETA61 (2) .3. 1,81960)  283 

GQ  TO  880 

C . ZERC-PIE/OELfCTRlC  CASE . 

940  IF(  ACAP  )  mR!TE(6 ,974)  K ,  (  C  01(1,4).  4*1.3  )•  1-1.2  )  267 

574  FCRMAT(6H0ACAP(,li,lh)  //  ( 1H  .1P6E13.5)) 

975  FCRMAT(6M0ACAP(.I1.1H)  //  ( lH  .1P8E13.5)) 


ei(3. 11*61(1. 21 
61(4.11*81(2.2) 
ei(  1.21— Bl(l. 31 
8 1  ( 2.2 )— 011 2.3) 

•  2*3 

CALL  CHAT  S(01.BETAB( 1,K)«NB£TA. 1.S156C  )  296 

BETABI4.K )*CX0 
ef TAB( 3.K  )*CX  1 
980  CCMINUE 

IF  (NBETA  .EC.  3)  GC  TO  563  F0001750 

F 0001 760 

C . .  -  PI E2CELECTR  1C  CASE .  F0001770 

CC  582  1  *  1.  4  F0001780 

BET  AB(  1 .4  )  «  (0..0.1  F0001790 

CC  962  4  -  1*  3  F 0001800 


20 
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L1N803  CONHAY 

PHASE 

N4 

12/31/69 

000109 

PAGE 

,  -  EFN  SOU ACE 

STATEMENT  - 

IFNISI  - 

9$2  efr*eu,ji  •  betabi i ,ji*i.e-io  foooibio 

GO  TO  9B3  F0001820 

F 0001830 
F 000 1840 

C.....1  PCUt  3  2EFC  CASE.....  F0001B50 

F0001B60 

C.....I  4  ALPHAS  I .  F 0001B70 

100  CCNTINUE  F0001880 

(CASE  -  1  F 0001890 

J  •  1  F0001900 

•MIA  -  CABS!  Bl(2t2»  >  F0001910  325 

CC  110  X=2. 4  F0001920 

eix  -  Cabs c  0221  alfabi  k  >  >  1  F0001930  330 

• F (  BIX  «GE.  BMIN  I  CO  TO  110  F0001940 

J  *  K  FOv 01750 

BPIN  -  BIX  F0001960 

110  CCNTINUE  F 0001970 

IAI1J  •  J  F 0001980 

JA  •  2  F 0001990 

CC  120  K«1.4  F 0002000 

IF!  K  .80.  J  I  GO  TO  120  F0002010 

IA1JA)  -  K  F 0002020 

J*  «  JA  ♦  1  F0002030 

120  CCNTINUE  F0002040 

BETABI2.1 )  -  l.C-10  F0002050 

BETABI l.l )  *  CXO  F0002060 

E8TA61 3.1 1  -  CXO  F0002070 

BET  AB(4e 1 )  «  CXO  F0002080 

J1  «  2  F0002090 

J2  *  4  F0002100 

125  CC  130  J*J 1. J2  F 0002110 

X  -  IAIJI  F0002120 

StA (1.1)  *  Bill  Alf  AB( K  \  I  F0002130 

eiA(2.1)  -  8131  ALFABOO  I  F0002140 

eiAU  “»  *  6331  ALrABIK)  >  F0002160 

ElA(lo)  -  -8141  ALFABI K )  )  F0002170 

61a ( 2 . 3)  -  -8241  ALFABIK)  )  F0002180 

BET  AX  *  BlA(ltl)*BlA(2t*l  -  61A<2tl>**>'  F0002190  361 

BETABll.Jl  -  (  BIA ( 2 r l ) *61Af  2t  3  )  -  B1AI 1  #3 1*81  A I2t 2 )  i  /  BETAX  F0002200 
8ETAB(2tJ)  *  CXO  F0002210 

CEfA8I3.J)  *  I  61AI 2 1 1I*B1A(  1(21  -  B 1 A f  Id  1*81612(3)  )  /  BETAX  F0002220 
130  BIT ABI4* J )  -  CXI  F 0002230 

IF!  ICASE  «E0.  3  »  GC  TO  583  F0002240 

GC  TC  270  F 0002250 

F0002260 

C . (  3  ALPHAS  ) .  F0002270 

140  ICASE  *  3  F 00 02260 

M  •  0  F0002290 

CO  150  1*1 tK  .  F0002300 

IF!  CABS*  8221  ALFABIII  >  I  *GT.  1.67  »  Ni  -  Nl  ♦  1  F0002310  380 

150  CCNTINUE  F0002320 

IF<  Nl  .IT.  3  I  GO  TO  632  F0002330 

Jl  •  1  F0002340 

J2  ■  3  F0002350 

K2  *  3  F0002360 

IB2  •  3  F 0002370 


1 

I 


I 
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L1N803  CONWAY  PHASE  N4 

F .  -  EFN  SOURCE  STATEMENT  -  1FMS) 


12/31/69  000109  RAGE 


L2  •  12 

F00023BO 

ICO  «  3 

F 0002390 

NftlTElb.lbO)  !  ALAOUtl)*  1-1*3  1*  1  1*  ALFAB! 1  )#  I-l.X 

) 

F 00 02400 

160 

FORMAT!  ///  16H  CEr>ENERAT£  ,3A6,l4H  (  3  ALPHAS  1  / 

F00Q241Q 

.  !  1 IH  ALPHA!, 11, 3H>  »,  1P2E13.5  /  ) 

> 

F0002420 

GC  TQ  125 

F 0002430 

f 0002440 

F0002450 

•  •  •  •  i 

.4  ACM,  2  ZERO  CASE . 

F 00 02460 

F0002470 

•  •  •  •  < 

.(  4  ALPHAS  ) . 

F0002480 

200 

CONTINUE 

F0002490 

ICASF.  -  2 

F0002500 

81X1U  -  CABS!  81!  l«l(t<Bt!3t3l  *  8l!l, 3***2  1 

F 0002510 

J  -  i 

F0002520 

GRIN  «  81X11) 

F 0002530 

CC  210  K-2,4 

F0002549 

B1X1K1  »  CABS!  Bll (ALFA8(KI )*833(ALFAI(X1I'813!ALFA6(K) 1*62  > 

F0002550 

IF!  BlXUl  .GE.  BM  IN  )  GO  TO  210 

F0002560 

J  •  K 

F0002S70 

GAIN  *  61X(K) 

F0002580 

210 

CCNT1NUE 

F0002590 

1  *  1 

F0002600 

IF!  J  .£0.  1)1-2 

F000261 0 

CC  220  K* l ,4 

F0002620 

IF!  K  .60.  S  1  GO  TO  220 

F000263Q 

IF!  6U1KI  «GE«  BIX!  11  1  GO  TQ  220 

F 0002640 

I  -  X 

F0002650 

220 

CONTINUE 

F 0002660 

230 

CONTINUE 

F0002670 

JA  -  3 

F0002680 

JB  *  1 

F0002690 

00  240  X-1,4 

F0002700 

1F(  A.EQ.J  .OR.  K.EO.I  1  GO  TO  235 

F 0002710 

IAIJAI  •  K 

F0002720 

JA  -  JA  ♦  1 

F0002730 

GO  TO  240 

F0002732 

235 

IA1J0)  -  K 

F0002734 

J»  «  JB  ♦  J 

F 0002 736 

240 

CCNTINUE 

F0002740 

245 

CC  250  K»i,2 

F0002750 

I  *  I A!  K  1 

F0002760 

ee>«u.Ki  •  •  bi3(al>ab<iii  /  buialfaiuh  •  i.e-io 

F0002770 

aerA8i2.ni  •  cxo 

FOO  02700 

8I7A8I3.IO  •  l.E-10 

F0002790 

250 

GcTA6(4,K 1  -  CXO 

F0Q02800 

m  ICS  ,C5.  1  1  GO  TO  583 

F0002810 

255 

OC  260  K-3,4 

FOO  02  820 

I  -  I A  f  K  1 

F0002830 

GETABU.K)  ■  CXO 

F0002840 

8fT ABI2.K 1  «  6241 ALF ABf III  /  B22IALFAII 1 1 1 

F0002850 

GET  A0( 3,K  1  •  CXO 

F0002860 

260 

2ETAB! 4«K  J  -  CXI 

?W62  870 

IF!  IC0  .EC,  2  1  GO  TO  983 

FQ002880 

GO  70  270 

FOO  02  890 

F0002900 

394 


4 10  All 


419  420 


10 
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UUBO*  CON  HAY  PHASE  N4 

.  -  EFN  SOURCE  STATEMENT  -  IFNI S }  - 


12/31/44 


000104 


PACE 


C,,,..l  LESS  THAI)  4  ALPHAS  I . 

no  ic  «  2 
11-0 
12-0 

CC  310  1-L'fc 

TEA*  -  CABS!  -  §22  I ALFABIII  1*1441 ALFABI 1 1 1  -  »24f ALFA6I U)»*2  » 

if(  team  .cE7we-$~V  «r ro~360  “ 


n  «  n 

IA1II1) 

cc  to  aio 
300  !?  »  12  ♦  : 

142 1 12 1  « 
310  CONTINUE 
If  I  12  .£0 
!f<  II  .EG 
CO  TO  632 


CO  TO  340 
CO  TO  320 


C„  .«,!  2.4  CASE  ) . 

'  '320  TAI3I  -  IA1UI 
14(41  -  1AK2) 

ICASE  -  9 
IE1  •  3 
ICS  -  2 
tl  -  9 

.  fcl  -  3’  . . 

CO  TO  360 

. . I  1.3  CASE  » . 

340  IAUI  *  I A2I1 ) 

141 2 3  •  IA2I2I 
ICB  *  T 
390  ICASE  -  4 
IB2  •  2 
L2  •  « 

K2  -  2 

340  J  •  14(181) 

A  *  IA(1B'2»"  ~  '  ~  * 

MR1TEI6.370)  (  ALABI I. IC), 1*1*3  I*  LABI  ICS  It  I Bl, I S2, I B1 , ALFABf J) 

•  182,  ALFAftlK) 

370  FCRHATI  ///  16H  ••*  DEGENERATE  .4*6  / 

•  43H  CALCULATE  BETAIIvK)  ANO  LU.K)  FOR  K  -,I2. 

•  4H  AN0.I2.8H  11-1,4)  // 

•  2I11H  ALPHA!, U,3H)  «,1P2E13.9  /  I  /  I 

IF!  ICB  .EG.  3  I  ICB  -  1 

GC  TO  (  249.  299  I,  ICB 


C . IERC  -  PIEZOELECTRIC  CASE, 


400  IC  •  3 
II  -  0 

CO  430  I-l,k 

CA22  -  CABSI  B22I  ALFABI 1 1  I  I 

IFI  K  ,E0,  3  I  GO  TO  410 

IF!  CA 22  ,CT •  1.E7  I  II  -  11  ♦  1 

CC‘tO'430 

410  IFI  I  ,GT,  1  )  CO  TO  420 


F 0002910 
F0002420 
FOO  02430 
F0002440 
F 0002950 
F 0002460 
F0002970 
F 0002480 
F 0002090 
F 0003000 
F 0003010 
F 0003020 
F0003030 
F 0003040 
F0003090 
F  0003060 
F0003070 
F 0003080 
F0003040 
F0003100 
F0003110 
F  0003120 
F0003130 
F 0003140 
F0003190 
F0003160 
F0003170 
F0003180 
F  0003190 
F00C3200 
F 0003210 
F0003220 
F 0003230 
F0003240 
F0003250 
F0003260 
F0003270 
•F0003280 
F0QU3290 
F0003300 
F0003310 
F 0003320 
F0003330 
F0003340 
F0003350 
F0003360 
FOO 03 370 
F0003380 
F0003390 
F0003400 
F0003410 
F0003420 
F0003430 
F0003440 
F0003490 
F0003460 


511  512 


547 


567 


31 


187 


L  1N803  CONMAr  PHASE  N4 

f .  -  EFN  SOURCE  STATEMENT  -  1FMS) 


12/31/69  000109  RACE  32 


CAM  IN  *  CA22 
J  -  I 
GC  TC  430 

420  If I  CAHIN  .l£.  CA22  )  GO  TO  430 
C AMIN  •  CA22 
J  •  I 

430  CCNT1NUE 

IF(  K  .EO.  2  I  GO  TO  450 
II  *  0 

CC  440  1*1*3 

!f(  I  .CQ.  J  )  GO  TO  440 

II  ■  11  ♦  1 

I A | III  a  I 
440  CCNTINUE 
GO  TO  460 

450  IF!  II  .NE.  2  )  GC  TO  632 
460  ICB  •  3 
GC  TC  350 


270  IF(  .NUT.  (  HCOTS  .OR.  All  I  I  GO  TO  463 

m  «  um 

1 12  •  !A( 2  I 

113  *  IAI 3  ) 

114  *  IAI  4 1 

NRl  TE<6«984 )  l  Ai.AB(  1.  ICASE).  1*1*3  )•  ALFABI I  III*  ALFABI 1 12) » 

.  ALFABI 1131*  ALFABI 1 141 

984  FCRMATI  21H0RE-UR0FR  EO  ALPHAS  I  ,  3A6*  ?H  »  //  I  1M  *1P8E13.5  I 
483  IFI  BETA  .OR.  ALL  )  *.RITE(6,985  )  I  I  BETABI I • J I  * 

•  J  * I B 1  *  I B2  ),  1*1.4  I 

985  FORMAT  I 20F0 INTERNED IAT E  SETA  8//I1M  ,  1PIE13.5J) 

IF  IKS  .NE.  01  GO  TG  1390 


C . EVALUATE  LITHIUM  NIOBATE  EQUATIONS.. ... 

L  -  LI 

CO  1330  K*K1*K2 
J  *  I AIK  I 

ELIO  «  EETABI  1«K)*(CMPLX{C.«  051  ♦  ALFABI  J  l#C55l 

.  ♦  BETABI 2. K)*(CMPLX(0» *  C56I  ♦  ALFABI J MC45) 

.  ♦  BETABI  3*  K  )*ICMPLXI0.  .  C55I  ♦  ALFABI  J  IK35 1 

.  ♦  eETABU.KMICMPLXIO.,  E15)  ♦  ALFABI  J  )*E3S) 

ELI  L  ♦  1  >  *  BETABI  lfKIPICMPLXIO..  04)  ♦  ALFABI  J  )»C45I 

.  ♦  6ETABI2.K )*(CMPLX(0.  *  C46)  ♦  ALFABI  J  )*C44  ) 

.  ♦  EETABI 3*K)*(CMPLXI0.»  C45)  ♦  ALFABI J)*C34 ) 

•  ♦  EETABI 4»K )*ICPPLX| 0. •  E14)  ♦  ALFABI J  f *E34) 

EL(L«2)  «  eETAOl  1»K)A|CMPLX(0«.  03)  ♦  ALFABI  J  )*C35 » 

.  ♦  BETABI 2. K lAICPPLXl 0. •  C36I  ♦  AlFAB(J)*C34) 

.  ♦  BETABI 3. K )*ICPPLX| 0. *  C33)  ♦  ALFABI J  )*C33) 

.  ♦  EETA8(4fK)*<CMPLX(0.f  E13)  ♦  ALFABI J  )*E32) 

IF  (KL  .EC.  0)  GO  TO  1190 
1170  EllLt2>  *  BETABI4.K) 

GO  TO  1330 

1190  IF  UH  .EO.  0.  * ANO.  KM  .EO.  0)  GO  TO  1170 
IF  (MH  .16.  1.610)  GO  TO  1220 
ST  «  EPSR 
GC  TO  1290 


F0003470 
F0003480 
F 00 03490 
F0003500 
F0003510 
F0003520 
F0003530 
F0003540 
F0003550 
F0003560 
F 0003570 
F0003580 
F0003590 
F0003600 
F0003610 
F0003620 
F0003630 
f 0003640 
F0003650 
F0003660 
F0003670 
F00036B0 
F0003690 
F0003700 
F0003710 
F0003720 
F0003730 
)  F0003740 
F0003750 
F0003760 
F0003770 
F0003780 
F0003790 
F0003800 
F0003810 
F0003820 
F 0003830 
F0003840 
F 0003850 
F0003860 
F 00038TO 
F 0003880 
F0003890 
F0003900 
F0003910 
F0003920 
F0003930 
FO 003940 
F0003950 
F0003960 
F0003970 
F0003980 
F0003990 
F 00 04 000 
F0004010 
F 00 04020 


611 

623 
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L  1*803  CON MAY  PHASE  N4 

F .  -  EfN  SOURCE  STATEMENT  -  IFMSI 


12/31/49  000109  PACE 


1220  IF  <MK  «NE.  0.  .Oft.  AN  .HE.  1)  GO  TO  1230 

F 00 04030 

ST  *  0. 

F 00 04 040 

GC  TO  1290 

FOO 04050 

1250  IF  (KM  .NE.  0  •OR.  MH  .EO.  0.  .OR*  MH  «GE.  1.E10)  GO  TO 
ST«C0SH(UH/V$)/S1NH(MH/VS)*EPSR 

CO  TO  1290 

1280 

F0004060 

1240  ST  «  1AMHIMH/VS)  •  EPSR 

F 0004  090 

12.0  ELILOl  •  BE  TAB!  l.K)*(CPPLXtO.«  £3t»  ♦  ALFABUI»E35I 

F 0004 100 

.  *  BETABI2.KI»ICWBLXI0..  E36I  ♦  ALFAB IJ l»E34 1 

F0004110 

.  ♦  BETABI3.KI*ICMPLXI0..  E35I  *  ALFABI J >*£33 1 

F0004120 

.  -ICRPLXIO.,  1131  *  AIFABUXT33  *  £PS0«STl*tETASI4.KI 

F 0004130 

ELil*3l  *  ELI L*3 I  •  l.E*10 

F0004140 

1330  t  *  L  ♦  4 

FOO 04150 

IF  (NBETA  .EO.  31  GO  TC  1340 

FOO  04 160 
FOO  04170 

C . ZERC  -  PIEZOELECTRIC  CASE . 

F 0004180 

El(4 )  *  I0..0.) 

F0004190 

El<  61  -  (0.»0.) 

FOO 04200 

EL( 121*  (0..0.) 

F0004210 

CU131-  (O.bO.) 

F0004220 

ELU4I-  (O.bO.) 

F0004230 

CK15I-  (O.bO.) 

F0004240 

EL(  16 )  -  CXI 

F0004250 

F0004260 

1340  IF(  OETERM  .OR.  ALL  )  MRITE(6. 1335)  (  EL(I).  I-LltL2  ) 

FOO 04270 

1335  FORMAT  ( 33H0 INTERN EO  1ATE  L  MATRIX  6T  COLUMNS// 

F0004280 

•  (1H  . 1P8E 13 .5  ) ) 

F0004290 

IC61  »  IC6  ♦  1 

F0004300 

CC  TO  1  1343.  1360.  13TC.  1380  1.  1C81 

FOO 04310 

1343  CC  1345  I-l.U 

F0004320 

1345  XEIU)  -  El(  1 1 

F0004330 

CALL  COET  (XEL.  4.  FVS,  KEXP) 

F0004340 

1350  F  *  FVS 

F0004350 

FVSPAG  »  C A8£(  FVS  ) 

F 0004 360 

IF  IDETEAM  .OR.  ALL!  WRITE  16.  13551  VS.  FVS.  FVSAAG 

F0004370 

1355  FCRHAT  (5H0VS  ».  E15.T,  5X.  7HFIVSI  «.  SE1 5. 7, 5X.5MRAG  * 

E15.7  1 

F0004380 

1357  RETURN 

F0004390 

1360  FVS  -  ELI l I.EL17I  -  ELI5I*ELI3I 

F  0004400 

GC  TO  1350 

F0004410 

13/0  FVS  -  ELI  10XELI 16  1  -  ELI  14 1«ELI  12 1 

F0004420 

GC  TO  1350 

F0004430 

1380  J  -  1 

FOO  04440 

CC  1385  R-1.3 

F0004450 

XXELU.K)  -  ELI  J) 

F0004460 

XXEM2.K)  -  EL ( J*2  ) 

FOO 04470 

XXEU3.K1  .  ELIJA31 

FOO 04460 

1385  J  »  J  ♦  4 

FOO 04490 

CALL  COET (  XXEL.  3b  FVS«  KEXP  ) 

F0004500 

GC  TO  1350 

F00045L0 

F0004520 

C.....EVALUATE  GOLO  LITHIUM  N108ATE  EQUATIONS . 

F0004530 

1390  CD  •  HUA  ♦  PUA  ♦  LAMCAA 

F0004540 

CA  «  NUA40C/1.E20 

FOO 04550 

RVS-RH0A4VS4VS 

F0004560 

CB  *( RVS*( PUA  ♦  00)  -  2.*MUA*DC)/1.E20 

F0004570 

CC  •  ( RVS  -  00)*(RVS  -  PUA  ) / 1.E20 

F00ty560 

491  492 

495 


716 


734 

736 

737 


759 


33 
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LINB03  COMMA V  PHASE  N4 

F .  -  EFN  SOURCE  STATEMENT  -  IFMS) 


U/31/69  000109  FACE  3* 


1903 

1930 

1593 

1620 

1650 


1760 


1910 


FVS  »  CSQHT I C£*OB  -  4.*CA*0C) 

ALFAAI 1)  •  CSCRTU-D8  ♦  FVS)/I0A  ♦  OF)) 

ALFAAI*)  »  -ALFAAI  1) 

ALFAAI3J  •  CSCRT I  ( -OB  *  FVSWIQA  ♦  CAM 
ALFAAI4)  -  -ALFAAI 3) 

ALFAAI 5}  •  CSCRT (CMPLXIIMUA  -  RY$)/MUA,  0.)) 

ALFAAI6)  «  -ALFAAI 5) 

1 F €  ALPHA  .C»,  ALL  )  MR ITE *6, 1505 )  I  ALFAAI l  )•  l«l,6  ) 

FCRMAT  UIHOUTERHEOIATE  ALPHA  A//I1H  ,  1P6E13.5)) 

CC  1550  K  -  I.  4 

BET  AAt It A  I  ■  CMPLXtO..  -LANDAA  -  HUA I •ALFAA(K) / 

I |MUA*ALFAA (K  )•  ALFA  AIK)  -00  ♦  RVSMI.E10) 

BIT  AAt  2«K )  •  10., 0.1 
BETAAt3.K>  •  tl.E-10,0.) 

•ETAAI2.5)  •  U.E-10.0.) 

BETAA12.6)  •  ll.E-10t0.) 

BITaA(3.S>  -  10. ,0.) 

BET AAI 3«6 )  -  10. .0.) 

IFC  BETA  .OR •  ALL  )  WRITE  16, 1595)  (  I  BETAAI I ,  J) ,  1-1,3  ),  J-1.6 
I ( BETA A ( I « J )  •  I  »  1 1  3) •  J  *  1,  6) 

FCRMAT  I31H01NTERHEC  I  AT  E  BETA  A  BY  COLUMNS// I 1H  ,  1P6E13.5)) 

CC  1620  J  •  1,  6 
CO  1620  I  •  1,  3 
ELL 1 1,  J)  •  BETAAI I ,  J ) 

CO  1650  J  -  7,  10 

CO  1650  1  •  1,  3 

ELL  1 1 • J)  -  -BETA6I l, J-6) 

CC  1740  J  •  1,  6 

ELL (4, J)  *  BETAAI 1 , J  l*ALFAAI Jl *MUA  ♦  CMFLX 1 0. , MUA) *6£TAAI3, J) 

ELL (5, Jl  -  BETAAI2,J)*ALFAA|J)*MUA 

ELL (6* J)  »  CMPLXtO. , LAMDAA)*ttETAA| 1,J)  ♦  BETAAI3,J ) *ALFAAI J )*D0 

FVS  •  CEXPf ALFAAI  J )*MH/VSI 

ELL (7, J)  -  ELLI4.J)*FVS 

ELLI8.JI  •  ELLI5, J  )*FVS 

ELLI9.J)  «  ELLI6, J  ) • F V S 

ELL  1 10, J  )•  10. ,0.1 

CO  1910  J  *  7,  10 

I  •  IAtJ-61 

ELL  14, J )  a-BETABI l * J-6)*ICMPLXI0, ,  C15)  ♦  ALFABI I )*C55) 

-  BETAS ( 2  » J-6 )• ICMPLX ( 0. ,  C56)  ♦  ALFABI 1 1 •CAS I 

-  BETABI 3, J-6)*ICMPLX( 0.»  C55)  ♦  ALFABI I )6C35) 

-  BETABI 4, J-6) *< CMP LX ( 0.,  F 15)  ♦  ALFABI l ) *E35 ) 

ELLIS, J)  -  -BETABI 1, J-6 )• ICMPLXI 0. ,  C14)  ♦  ALFABII ) •C45I 

-  BETABI 2, J-6 )• I CMPLXl 0. ,  C46)  ♦  ALFABII )K44) 

-  BETABI 3»  J-6)* ICMPLX 10. •  C45)  ♦  ALFABI I ) *C34) 

-  BETABI4, J-6) *1 CMPLXl 0, ,  £14)  ♦  ALFABI 1 ) *E34 ) 

ELLI6.J)  -  -BETABI 1, J-6)* I CMPLXl 0. •  C 13  I  ♦  ALFABII l*C35l 

-BETABI 2*  J-6 )*t CMPLXtO. ,C36) ♦ALFABI I ) AC 34  ) 

-  BETABI 3, J-6 )• I CMPLXl 0, ,  C35)  ♦  ALFABI I l*C33) 

-  BETABI 4, J-6 |m|CMPLX 10.,  £13)  ♦  ALFABII )*E33) 

ELL (7»J)  •  10. ,0.) 

ELL  IB, J)  -  10,, 0.) 

ELL (9, J)  •  10,, 0.) 

ELL  1 10,J )■  BETABI 4, J-6 1 
CO  1915  I  -  1,  3 
00  1915  J  «  1,  10 


FOO 04590 
F0004600 
F 00046 10 
F0004620 
FOO 04630 
F0004640 
FOO 04650 
FOO 04660 
FOO 04670 
F0004660 
FOO 04690 
FOO 04 700 
F0004710 
FOO 04  720 
FOO 04730 
F0004740 
F0004750 
F0004760 
IF0004770 
FOO  04  780 
FOO 04  790 
F 0004 BOO 
FOO 04810 
FOO 04820 
F0004B30 
FOO 04 840 
F0004B50 
FOO 04  860 
F0004B70 
FOO 04 880 
FOO 04890 
F 0004900 
F0004910 
FOO 04920 
FOO 04930 
FOO 04 940 
F 0004950 
F0004C60 
F0004970 
FOO 04960 
FOO 04990 
F0005000 
F 0005010 
F0005020 
F 0005030 
FOO 05 040 
F0005050 

F 0005070 
F0005060 
F 0005090 
F0005100 
F0005110 
F 0005120 
F0005130 
F0005140 


762 

763 

764 

765 

766 


786 


843 


1 
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L 1NB0  3  CONWAY 

FMASE 

N4 

12/31/49 

000109 

FACE 

F.< 

....  -  EFN  SOURCE 

STATEMENT  - 

1FMSI  - 

1915  ELLU.JI  »  ELM  1  *  J  )*1.E10  F0005150 

IFI  OfcTERM  .OK.  ALL  )  NRITEU.  1930)  (<  ELLU.JI,  J-1,10  I.  !•!,  10IF0005160 
•  ((ELLU.JI.  4  •  1,  101.  1  -  1,  101  F 0005170 

1930  FCRMAT  U7H1***  L  MATRIX  •••//( IH  .  IFtElS.AII  F0005U0 

CO  1940  I- 1.100  F0003 190 

1940  XELIU  •  ELL (1.1 1  F 0005 200 

CALL  COET  <  XEL.  10.  FVS.  KEXF)  F0005210 

GO  TO  1350  F0005220 

F 0005230 

C . EMOt  IM  MATRIX  INVERSION. ....  F0005240 

I960  NRITE  (4.  15701  F00052S0 

1970  FMMAT  ( 30  HO  ••♦SINGULAR,  MATRIX  IN  BETA***)  F0005240 

GO  TO  1350  "  ---  F 0005 270 

END  F0005260 


905 


933 


925 


35 
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LINB03  CQNfcAV  PHASE 


12/31/6S  000109  PAGE  36 


I1BFTC  STRIP.  CECK 


CSTRIP  ARRAY  Of  CONDUCTING  STRIPS  OVER  PIEZOELECTRIC  MEDIUM  •••  STRP0020 
C*GVO 12  STRP0030 
C*  G.V.  ROBERTS  STRP0040 
C*  03. 15. t>8  STRP0050 

STRP0060 


SUBROUTINE  STRIP  (A,  VS#  RMO.  AU#  COEfF)  STRP0070 

STRPOOftO 


CCMPCN  / IIU /  CCI2CI  #C£(  17  l#CTf  S) 


CCMMCN  /FLAU/  ONCE  STRP0100 

CCHFLEX  AI9).  I ERC#  CNE.  Jl NAG  STRP0110 

REAL  CNES15),  CAt4,4),  C8t4#4).  CCI4.4I  STRP0120 

INTECER  P  STRP0130 

LOGICAL  ALL.  COEFF#  CNCE  STRP0140 

ECU  I  VALENCE  ICCIU.  Clllt  ICCI2I#  C13I.  CCCI3I#  CIO,  (CCI 41  ,C15I  .STRP0150 

<CC( 5 1  •  C331.  <CC( 6  )*  C34).  ICCI7I#  C35>#  (CCI 8 » #C36I , STRP0160 

ICCI9I,  C44),  tCCI  10.C45),  CCCI1U.C46I#  STRP0170 

<  CCI 12  > • C55  I  •  ICC! 13I.C56I .  ICO  14  » ,C66 1  #  STRP0180 

ICC! 15).C16).  ICE  1 1 1  #  Ell)*  ICEI2I#  E13I#  STRP0190 

ICE!  3 ) •  E14I#  (CE( 4  t .  E  15  )  •  ICEI5)#  E16).  STRP0200 

I CEI 6  J •  £31 1#  ICFI7),  E33I.  (CEE  81 •  E34),  STRP0210 

ICEI9),  E35).  ICEI1C1.E36),  ICTCll#  Til)#  STRP0220 

1CTI2I,  T13 ).  ICTI3I#  T33)  STRP0230 

STRP0240 

CATA  TP  1  *  ZERO#  CNE#  ONES#  JIMAG  /  6.2631E53#  (0##0#)»  1 1. .0# ) #STRP0250 
.  U,  -1.#  -1.#  1.,  1.#  I0.#l#>  /  STRP0260 

STRP0270 


. . SET  UP  MATRICES . 

IF  I .NOT .  CNCE)  GG  10  670 
CNCE  *  .FALSE. 

CAll.ll  «  C55 
CAI1.2I  «  C45 
CAI2.11  *  C45 
CA(1, 3)  *  C35 
( At  3* 1 1  *  C35 
C At  1.4)  *  E35 
CAI4.1)  -  E 35 
CAI2.2I  -  C44 
CAI2.3)  «  C34 
(AI3.2I  -  C34 
CAI2.4I  -  £34 
IA|4,2)  «  E 34 
C At  3. 3 )  »  C33 
C  A I  3.4)  *  £33 
CAI4.3)  -  Ei 3 
C  A I  <*#4 )  »  -T  33 
cell. 11  «  C 15  4  Cl  5 
CB( 1 #2 )  »  C14  4  C56 
CB12.1)  -  CBtl.2) 

CB(1. 31  •  Cl 3  4  C55 

cet 3.1)  *  cat  1*3) 


STRP0280 

STRP0290 

STRP0300 

STRP0310 

STRP0320 

STRP0330 

STRP0340 

STRP0350 

STRP0360 

STRP0370 

STRP03B0 

STRP0390 

STRP0400 

STRP0410 

STRP0420 

STRP0430 

STRP0440 

STRP0450 

STRP0460 

STRP0470 

STRP0480 

STRP0490 

STRP0500 

STRP0510 
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ilNB03  CON MAY  PHASE  HA 

STRIP.  -  EFN  SOURCE  STATEMENT  -  1FMSI 


12/31/69  000109 


E15  ♦  631 
CBI1.4I 
C44  ♦  C46 
C36  ♦  C45 
CBI2.3) 

614  4  E 36 
C8I2.4I 
C35  4  C35 
£13  4  E35 
CBI 3»4 I 
-T13  -  T13 
“C 16 


€•11*41 
CBI4.1) 
€•(2.2) 
CBI2.3I 
CBI  3.2) 
CBI 2*4 1 
CBI  4*21 
C6I3.3) 
CBI  3*41 
CBI4.31 
CBI4.4) 
C0I1. 21 
CCI2.1I 
CCI1.31 
C013.ll 
C0I1.4I 
£014.11 
C0I2.3I 
COf 3.2) 
C0I2.4I 
£014*21 
CCI3.4) 
CCI4. 3) 
C0I4.41 


C.....P  h  E  m . 

670  00  680  1  •  1.  9 
680  All)  •  ZERO 


•PREPARE  FOR  GAHMAIN)  LOOP . 

RGAP  »  RH04VS4VS 
C0I1.1)  -  RGAM  -  CU 
CCI  2.2 1  «  RGAM  -  C 66 
C0I3.3)  -  RGAM  -  C55 

.CCMPUTE  COEFFICIENTS  OF  EIGHT  DEGREE  POLYNOMIAL. •• • • 

P  *  0 

CC  1030  J  •  1*  4 
CC  1020  K  -  1.  4 
IF  IK  .EQ.  J)  GO  TO  1020 
CC  1010  L  •  1.  4 

IF  IL  .EQ.  K  .OR.  L  .EQ.  J)  GO  TO  1010 
P-10-J-K-L 

P  -  P  4  1 

IF  IP  .GT.  51  P  *  2 

T1  *  CAI1.JI4CBI2.KI  4  CBI l'J)*CA(2*K! 

T2  -  CAI1.J14C0I2.K)  -  CBI 1» J)*CBI 2»K I  4  COIl, J)4CAI2,K) 
T3  *  CBI  1  •  J )*CDt 2* K)  4  COI 1. J) 4CBI 2.KI 
/ H  -  CAI1, JI4CAI2.KUCAI3.LI 
21  -  CAI1.J14CAI2.K14CBI3.L)  4  T1*CA<3.L) 

ZJ  -  CAI 1.J)*CAI2*K)*C0I3»L)  -  U4CBl3.il  ♦  T24CAI3.il 
ZK  *  COI  3.L  )*T1  4  CBI3.LI4T2  4  CAI3.U4T3 
ZL  *  T24C0I3.L)  -  T34CBI3.L)  4  COI  1. J14C0l2.KMCAI3.il 
ZM  *  T34C0I3.U  4  C0I1»J)4C0I2. Kl4CBI3.il 
IH  -  COIl.J)4COI2.K)4COI3.i) 

ZS  •  CAI4.M1 


STRP0520 

STRPQ530 

STRP0540 

STRP0550 

STRP0560 

STRP0570 

STRP0580 

STRP0590 

STRP0600 

STRP0610 

STRP0620 

STRP0630 

STRP0640 

STRP0650 

STRP0660 

STRP0670 

>TRP0680 

STRP0690 

STRP0700 

STRP0710 

STRP0720 

STRP0730 

STRP0740 

STRP0750 

STRP0760 

STRP0770 

STRP0780 

STRP0790 

STRP0800 

STRP0810 

STRP0820 

STRP0830 

STRP0B40 

STRP08S0 

STRP0860 

STRP0870 

STRPQB80 

STRP0890 

STRP0900 

STRP0910 

STRP0920 

STRP0930 

STRP0940 

STRP0950 

STRP0960 

STRP0970 

SrRPU9B0 

STRP0990 

STRPIOOO 

STRP1010 

STNP1020 

SVRP1030 

STRP1040 

STRP1050 

STRP1060 

STRP1070 
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LIN603  CON WAV  PHASE  N4  12/31/69  000109  PACE  36 

STRIP.  -  EFN  SOURCE  STATENEM  -  IFNCS)  - 


ZU  •  CBi4.NI 
2V  *  C0I4.M 

All  I  *  All)  ♦  0NES(P)«2H*2S 

At2 1  •  A( 2  I  ♦  ONES  IP ••€ ZH*ZU  ♦  2I*ZS) 

A<3)  »  A( 3)  ♦  ONES (P )*( ZH*ZV  -  ZI*2U  ♦  2J*2S) 

A(4 1  •  AI4)  ♦  ONES (P  1*1 ZI*ZV  ♦  2J*ZU  ♦  2K*ZS) 

A(5 )  *  A{ 5 1  ♦  ONES  CP l*( ZJ*2V  -  2K*2U  ♦  2L*2$) 

A(6)  »  At 6 1  ♦  ONES (P  1*1 ZK*ZV  ♦  2L*ZU  ♦  ZH*2S1 

Ai7l  *  A( 7 1  ♦  CNES(P»*<ZL*ZV  -  2N*ZU  ♦  2N*2S) 

ACS)  -  A( 8  t  ♦  ONES (P  l*( ZN*ZV  ♦  2N*ZU1 

A<9 1  «  A<9  1  ♦  ONES i P )*2N*ZV 

1010  CCNTINUE 
1020  CCNTINUE 
1030  CCNTINUE 

OC  1C35  I  -  2.  8.  2 
1035  Ad  I  *  J  INAG*A(  I ) 

IF  (AU  .OR.  COEFF)  WRITE  (6.  1050)  (AID*  1  -  1.  5) 
1050  FGRMAT  (27H0C0EFFICIENTS  OF  POIYNONI AL/ C 1H  ,  2E18.71) 

C.....NCRNAU2E  COEFFICIENTS  TO  LARGEST  VALUE . 

ANORN  >CABSUI 
CC  1155  I  •  2.  9 

1155  ANCRN  «  AMAXl  UNORN , CABS C AUDI 
CC  1157  l  •  1.  9 
Ail)  -  Ai  It/ANORH 

IF  (CABS(A(I)l  .LT.  l.E-6)  All)  *  ZERO 
1157  CCNTINUE 

IF  (ALL  .OR.  COEFF)  WRITE  (6,  1050)  (Ad).  1  -1.9) 

RETURN 

EAO 


STRP1080 

STRP1090 

STRP1100 

STRPino 

STRP1120 

STRP1130 

STRPU40 

STRP1150 

STRP1160 

STRP1 170 

STRP1180 

STRPU90 

STRP1200 

STRP1210 

STRP1220 

STRP1230 

STRP1240  99 

STRP1250 

STRP1240 

STRP1270 

STRP12I0  1C7 

STRP1290 

STAP1300  113 

STRP1310 

STRP1 3iG 

STRP1330  122 

STRP1340 

STRP1350  129 

STAP1 3*0 

STRP1370 
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IIRFTC  CRGOT •  DECK 


CCPOOI  CRO0T02O 

C*  CROOT  CALCULATES  THE  ROCT'S  OF  AN  EIGHTH  OEGREE  POLYNOMIAL  CR00T030 

SUBROUTINE  CRCOT  (A,  XO.  KOOE,  XI  CROOT06O 

CCMPCN  /CROER/  C.  K.  N  CR0QT050 

COMPLEX  A<  91 »  CI9 ) »  X0I8I,  XI8),  XI, ROUND#  CXO  CR00T060 

EXTERNAL  POL  CROOT07O 

CATA  CXO/<0.,0.}/  CROOT075 

C ROOT 080 

*  •  1  CR00T090 

OC  100  1  •  l.  9  CR00T100 

100  cut  *  All)  CR00T110 

110  IF  ICABSICllM.NE,  0.)  GO  TO  130  CR00T120  12 

XU  I  -  CO,.C.)  CROOT130 

R  •  K  ♦  1  CR00T140 

IF  IK  .GT.  •)  GO  TO  280  CR00T150 

P  •  10  -  K  CROOT160 

CO  120  1  «  1*  N  CR0CT170 

120  (III  -  C4I*l)  C ROOT  180 

GO  TO  110  CRO0T190 

CRnOT  200 

. . C  0  M  P  U  T  E  K-TF  R  0  0  T.....  CRUJT210 

130  XI  -  l.5,.S)  CR00T220 

IF  IXGOE  .NE.  0)  XI  «  XOIK)  CR00T230 

CR00T260 

. . XI  «  INTI  At  GUESS,  USE  MULLERS  METHOD  TC  REFINE  IT .  CROOT250 

P  *  10  -  K  CR00T26O 

CALL  MULLER  (POL,  XI,  20,  l.E-8.  JUNK,  X(K),  N>  CR00T270  36 

XI  *  (.5,  -•51  CAOOT 280 

IF  (N  .GE.  20)  CALL  MULLER  (POL,  XI,  2G,  l.E-8,  JUNK,  XU),  N)  CR00T290  60 

XU)  *  ROUNC (  X ( K ) )  CRO0T3OO  63 

K  «  K  ♦  1  C ROOT 310 

IF  (K  .GT.  8)  GO  TO  ftO  CR00T320 

CROOT330 

C.....R  EDUCE  COEFFICIENT  . .  CR00T360 

DO  260  I  -  2.  M  CR00T350 

260  C  C I  >  •  (III  ♦  XU-1MCU-1)  CR00T360 

IF  IK  .NE.  8)  GOTO  130  CR0OT370 

IF  (CA&SICI 1 ) )  .NE.  0,)  GO  TO  250  CR0OT380  62 

XI8I  *  CXO  CROOT390 

GC  TO  280  CROOT600 

250  X(8 )  -  -Cl 2 )/C( 1 )  CR00T610 

X(8 )  -  ROUNDl  XI 8)  I  CROOT415 

CR00T620 

. . E  X  I  T .  .  —  -  CR00f430  68 

280  00  290  I  *  1,  8  CR0OT44O 

290  XOII)  «  XII)  CR0OT65O 

KCDE  •  1  CR00T660 

RETURN  CR00T470 

END  CRO0T680 
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I1BFTC  PULE*.  Of CK 


CMUli.ER  •••••  MULLERS  METHOO  FOR  ACOT  FINDING  •••• 

MULERO20 

C* 

MULEA030 

o 

G.V.  ROSERTS 

HOLER  060 

c* 

06*  26*68 

MULE 8050 

c**»* 

MULE  A  060 

SUBROUTINE  MULLER  IF  *  XC»  MAX*  EF$L0*1*  KODE*  X*  N) 

HULER070 

MULER080 

COMPLEX  f.  X.  XO.  XI,  X2,  X),  M2,  1.2,  02,  G,  FX,  FX1,  FX2,  0, 

MULE A 090 

.  T*«0.  ONE,  GPO,  GMD,  L3,  FX3*  HI 

NULER100 

CATA  TuC,  ONE  /  10*02,0*),  10.01,0.)  / 

MULE, 110 

MULE  A 120 

FX  *  F(X0> 

NULEA130 

2 

X2  *  XO 

KULER160 

XCOE  *  0 

MULER150 

IF  (CABS(X)  .EC.  0.)  GO  TO  190 

M0CEA160 

6 

FX1  -  F(  1*C2*X0) 

MUtERlTO 

• 

FX2  *  F 4 1 .01 *X0) 

HOLER  110 

9 

H2  ■  -o.cmo 

MULEA190 

GC  TO  220 

MULE A 200 

190 

f XI  *  FITttOI 

MULEA210 

12 

FX2  *  F(GKE) 

MOL  ER  220 

13 

F2  «  -O.Cl 

MULER230 

220 

L2  *  -0.50 

MILER260 

02  ■  0.50 

MUCR250 

MUuE  A260 

C««M 

•CEG1N  ITERATIONS . 

MULER270 

DC  5X0  K  ■  1.  MAX 

NGLER2«0 

A  «  K 

MULER290 

G  *  FX*L2*L 2  -  FXI*02*D2  ♦  FX2*U2  ♦  G2) 

HOLER  300 

CALL  GVEACK 

?9 

C  *  CSORT  ( G*G  -  6.6FX2*02*L2*IFX*L2  -  FXl*02  ♦  FX2I) 

MULE, 310 

i 

GPC  «  G  ♦  C 

HOLE  R320 

CM0  -  G  -  0 

MULE, 330 

CGPC  -  CAtJSIGPOl 

MULE, 340 

22 

CGMC  *  CABSIGMDI 

MULER350 

23 

If  (CGPO  .GT.  CGMOI  GO  10  360 

MULE  A  360 

If  (CGMO  .EO.  0.1  GO  TO  580 

MULE, 370 

13  *  -2.»FX2«02/GM0 

MULE, 3,0 

GC  TO  370 

MULER390 

360 

IF  (CGPO  .EC.  0.)  GO  TC  580 

HULER600 

L 3  «  -2* *FX2*02/GP0 

NULE«410 

370 

X3  •  X2  ♦  L3*F2 

MUIER620 

FXJ  «  FCX3) 

MULER630 

35 

IF  (CA6S(X2)  .£0*  0.)  GO  TO  620 

HOLER660 

36 

IF  (CA8SUX3  -  X2)/X2»  .GT •  EPSLON)  GO  TO  650 

HOLER  650 

60 

CALL  OVERCK 

66 

390 

X  *  X3 

HOLER660 

GC  TO  570 

MULER670 

620 

IF  (CABS(FXJ)  *LE.  EPSLCN)  GO  TO  390 

MULER6S0 

HULER690 

LINB03  CQNAAY  PHASE  N4 

HULEA.  -  £FN  SOURCE  STATEMENT  -  IFACS) 


12/31/6 5 


C . ACT  CONVERGENT  YET 

450  FX  -  FXi 
FX1  «  FX2 
FX2  •  FX3 

X  »  Xi 

XI  -  X2 
X2  «  X3 
H  -  H2 

►  2  *  X2  *-  XI 
12  *  H2/H1 
540  02  -  1.  ♦  L2 

KCOE*  2 
X  «  X2 
5T0  RETURN 
580  X  •  X2 
GC  TO  570 
ENO 


MUIER500 
NULER510 
NULEA5Z0 
WXER530 
NUt  ER540 
MULERS50 
NUCER560 
MULER570 
HULER580 
MULER590 
MULER600 
MULER610 
MULER620 
KW.ER630 
HOLER  640 
HULER650 
MULER660 


48 


000109 
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Sllf TC  PCI...  DECK 


COMPLEX  FUNCTION  POL  (X) 

POL 00020 
POL 00030 

CCMPCN  /OPDEft/  Ct  Kt  M 

P0L00040 

COMPLEX  T,  CtSI.  X 

POL  00  OS  0 

PCL  •  (O.tC.i 

POL 00 060 

?  •  a. «o.i 

P0L00070 

4  •  M 

POL 00 090 

CO  100  1  •  1«  M 

POL 00090 

PCL  -  POL  «  CI<J)*T 

POL  00 100 

CALL  CVfcKCK 

T  ■  T*X 

POL 001 10 

J  «  J  -  1 

P0L00120 

PETUPN 

POL 00130 

ENO 

POL00140 
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IllfJC  TFUN.-  DECK 


CIFUN 

CCNPLEX  FUNCTION  T  FUN  I  ETA*  UX»~Cl.  C2.  C3*  C4,  C5,  C6*  C7,  C8! 
CCNNON  /LINK/  JUNK  1(244 )»  AIFAB(4)  •  JUNK2(96>*  6ETAB(4,4|, 

•  JUNK 31 8) $  VS*  JUNK4417I 

•  /CIA  /  I A(4 ) 

CCNPIEX  HFAB*  BeTAf.  ETAI4) 

CEBUG  ETA*liX*Cl«C2tC3*C4*C5*C6*C?»C8 
TFUfc  •  (U.,0.1 
CC  BO  K  •  1*  4 
1  »  SACK) 

CEBUG  1 
CEBUG  TFUN 

•0  TFUN  -  TFUN  ♦  ETA(K)*( 

•  -  BETAS ( 1*K I* <CPPLX(0.*C1 )  ♦  ALFABUI *C2)  AS 

•  -  BETAS(2.KI*(CPPLX(0.»C3)  ♦  ALFABC l)*C4l /VS 

•  -  BETABI 2*K )* (CPPLXf 0.#C5 )  ♦  ALFAB( I) *C6J /VS 

•  -  BETAB(4*K IMCPPLXt 0«*C7)  ♦  ALFABI  l)*CSIAS  ) 

•  *  CEXP(-AIFA8(1)*MX/VS‘. 

CEBUG  TFUN 

BE TUAN 
ENO 


TFUN0020 

TFUN0030 

TFUN0040 

TFUNOOSO 

TFUN0060 

TFUN0070 

TFUNOOSO 

TFUN0090 
TFUN0100 
1 FUN0110 


TFUN0120 

TFUN0130 

TFUN0140 

TFUN0150 

TFUN0160 

TFUN0170 

TFUN0180 

TFUN0190 


17 
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ilBFTC  PlfLN.  DECK 


CP1FU* 

COMPLEX  FuKCT ION  PlFUN  (ETA*  Cl*  C2*  C3*  C4,  CS.  C6»  C7, 

•  C8*  C9 »  CIO*  Cll*  02-  C 13*  CIA*  C15 

•  C 16*  Cl?*  CU.  Cl? »  C2C*  C21*  C22  *  C23 

.  C2A| 

CCMMCN  /LINK/  JUNK14244),  ALFABfA)*  JUNK2  (36)  •  BETAB(4,*)V 

•  JUNK3  4 26 )  /BETA*/  NBETA 

•  /CIA  /  IA(  A ) 

COMPLEX  ALFA0,  BET  AB *  E TA{ 4) *  J 
DATA  J  /  40. .1.)  / 

FKA  -  NBETA  ♦  l 
F1FUN  «  40. .0.) 

OC  230  I  «  1*  A 
L  -  1  AC  1 1 

CC  230  K  •  1*  NKA 
M  >  IA4M 

P1FUN-P1FUN  ♦  (ETA( I )*CGNJG(ETA(K) )/( ALFAB4LI  ♦  CON JG  4 ALFABIMI 

•  *4  CON JG4  BETAB(l*K)l*(8ETAB(l«I)*(Cl  -  J*C2*ALFAB(L » » 

•  ♦  BETAIM  2*1  !•  4C3  -  J*ALFA8(L-»*CA I 

•  ♦  BET  AB  (  3*  1  )•  (C  5  -  J*ALFA8(U*C6> 

.  ♦  BET  AB ( A* I  I  s ( C 7  -  J*ALFAfi (L )*C8 ) ) 

.  ♦  CONJCI RETAB(2*Kll*(8ETAB41*l)*4C9  -  J*ALFAB ( L I *C 10 1 

•  ♦  BE  TAB  (2*1  I*  ( C  1 1  -  J*ALF AE4L  )*C12  I 

•  ♦  BETAB43.C >*4C13  -  J*ALF AB(L »*C1A  1 

•  ♦  8ETA84A*!  )«4C1S  -  J*AIF  AB(U*C16  M 

•  ♦  C0MJC(BETAB(3*KI !•< BE TAB4 1. ! »• < C 17  -  J*A| FAB 4 LI*C18 1 

•  ♦  BET  AB 4  2 •  I  )• 4C  19  -  J*ALF  AB4U*C20 1 

•  ♦  BE  TAB  4  3  *  1 1*  4C2 1  -  J*ALF AB4L l*C22 ) 

.  ♦  8ETA644*  1  IMC21  -  J*ALF  AB 4 L I * C 2 A  III 

230  CONTINUE 

F1FUM  *  P1FUN/2. 

PETUPN 

ENO 


PIFUN020 

P1FUN030 

•  P1FUN0AC 

*  P1FUN050 
P1FUN060 
PIFUN070 
P1FUNOBO 
PIFUM090 
PIFUNIOO 
P1FUM110 
P1FUM120 
PIFUN130 
PIFUN1A0 
P1FUN150 
P1FUN160 
P1FUN170 
P1FUN180 

>))  P1FUM190 
P1FUN200 
P1FUN210 
PIFUN220 
P1FUN230 
P1FUN2A0 
P1FUN250 
P1FUN260 
P1FUN270 
P1FUN280 
P1FUN290 
P1FUN300 
PIFUN310 
P1FUM320 
PIFUN330 
PIFUN3A0 
PIFUN350 


AA 


j 

i 


f 

t 

t 
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6I8FTC  COET..  DECK 


CCOET 

SUBROUT 1NE  CCE1  6-12-68 

COETOOOO 

f. 

PETERHKANT  OF  COMPLEX  MATRIX*  0ETU1  •  f  6  10**M 

COETOOOl 

SUBRGU? INE  COETI A* N, F*M| 

0001 

CAT  A  PI /3,  14199265/ 

0002 

CIMENS;CN  A(N,N),S<2) 

0003 

CCHPLEX  A.F,A 

0004 

EQUIVALENCE  (S«PH1«B)»<S(21 »  SUM  1 

0005 

AL0u62'X)-ALCG(X)/ ALCG( 2*1 

2 

-CN  -  1. 

0006 

6 

CC  is  1-2, H 

0007 

lt-I-1 

0008 

CC  15  J-l.ll 

0009 

ft 

IFIRE AL(A( l, J  )) *E0 ,Q • .AND.AIMAGi A( t«J)).EQ.0«)  GC  TO  15 

0010 

9 

If  (ft£AL( CABS ( At J, J )  II  -  REAUCABStAU,  j))|>  11,10,10 

0011 

20 

11 

CC  12  K-J  t A 

0012 

6  •  A( J  »K ) 

0013 

A( J ,RI-A( 1  «k ) 

0014 

12 

AU.KI  -  a 

0015 

SCN  -  -  SGS 

0016 

IF  (REAL (All, Jl) «EC«Q« • ANO.AIMAGt A(  I»JH«EQ,0.  )  GO  TC  15 

0017 

10 

B  *  A(  I«J)/A|.:,J| 

0018 

Jj«„*l 

0019 

CC  14  L-.:J,N 

0020 

14 

AU, LI  -  AU.Li  -  e*A(J,L> 

0021 

15 

CINTINUE 

0022 

16 

SUM.n. 

0023 

FMI-O. 

0024 

OC  20  i*  1  *  N 

0025 

IF(REAL(A(I,UI.EO.O,.ANO.AIMAG(A(I,m,E9,O.I  GO  TO  18 

0026 

SUM  *  SUM  ♦  AL0GB2 (REAL (CABS (A( 1,1)))) 

0027 

63 

20 

PHI -PHI 4ATAM2 (AIMAGI A(  1,11 |,  REAL! A( 1,11)1 /PI 

0028 

67 

SUM  •  SUM*. 30 10299 96 

0029 

PHI  *  PI*PHI 

0030 

F-CPPLX(COSI ?hI),SlN<PHI)l 

0031 

70 

S  •  AUSi SUM )  -  37. 

0032 

IF  (S.LE.O.)  GO  TO  100 

0033 

M  -  SIGNCS.SUMI 

0034 

F  •  F*10.**( SLM-FL  OAT(M ) 1 

0035 

76 

GC  TC  200 

0036 

100 

M  *  0 

0037 

F  -  F*10.**$UM 

0038 

80 

200 

IF  (SGN.GT.O.)  RETURN 

0039 

F  -  -  F 

0040 

RETURN 

0041 

IB 

M  «  0 

0042 

F-10.,0. I 

0043 

RETURN 

0044 

END 

0045 

i 
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PACE  4< 


f 

i 

t 

* 

•  AI8FTC  CP  AT  S  •  OK* 


N4 


CCNAT S  SUBROUTINE  CHATS  6-12-6G 

CMATS020 

C 

SOLUTION  OF  COMPLEX  LINEAR  EQUATIONS 

CMATS030 

SUBROUTINE  CMATSI A,X,Nl.Ml,«i 

CHAT  $040 

01  PENSION  A(M*S0).X(N1*M1) 

CHATS 050 

COMPLEX  A ( X  f R 

CHATS060 

P-Pl 

CHATS070 

MM 

CHATS080 

IF  IPI  lc9* 199*5 

LHATS090 

5 

NPl  «  fl  -  1 

CHATS100 

IF  INM1I  199*160.6 

C MATSllO 

6 

PP-A4M 

CHATS120 

II  -  1 

CMATS130 

CC  155  1-2. N 

C  MATSUO 

CC15  J-l.II 

CMATS150 

IF  (REAL!  A(  I  •  J)  1  .EO.  0.  .AND.  A IPAG1 Al  I.JM  .EC.  0.1 

GO 

TO 

15 

C  MATSUO 

If  (  CABStAlJ.jn  -  CABSIAU.jm  11*10*10 

CMAT  $17  0 

11 

OC  12  K-J.PP 

CHAT'  180 

R  •  A( j*,; ) 

CMA  •  $190 

AIJ.Kl-AII**) 

CMATS200 

12 

All *K I  •  « 

CMATS21 0 

IF  IREALUll.Jll  .  EQ.  0.  .AND.  AIMAGIAII.JH  .EC.  0.) 

GO 

TO 

15 

CHAT $22 0 

10 

R  -  -A( I * J )/A(J» J1 

CHATS230 

JJ  •  J  4  1 

CHATS240 

CC14  A-JJ.PP 

CMATS250 

14 

All.*)  *  All**)  4  R#A(J,K) 

CHATS 260 

All  *  J )  «  IC,.O.I 

CMATS270 

15 

CONTINUE 

CMATS280 

155 

II  -  I 

CMAT$290 

160 

OC  166  1-1 *N 

CMATS300 

166 

IF  IREALI  Al  I  *  1 1 1  .EO.O.  .AND.  AINAGIAU.IU  .EG.  0.1 

RETURN 

1 

CMATS310 

CC  28  J-l «M 

CHATS320 

KK-N4J 

CMATS330 

X{N*J)«AIN**K)/A<N*N) 

C  MATSUO 

IF  <KM1)  287*2**287 

CHATS 350 

287 

J  »  N 

CHATS 360 

* t  289  1-2 *N 

CHITS370 

II  -  JJ 

CMATS380 

JJ  »  JJ  -  1 

CMATS390 

R  «  (0..0.1 

CMATS400 

00  25  K-l I *N 

CHATS410 

25 

R  -  R  4  At  JJ«K)*XI K» Jl 

CHATS420 

289 

XIJJ.JI  -  ( Al JJ  « K*  1  -  RI/AIJJ.JJ) 

CHATS430 

28 

CONTINUE 

CMATS440 

RETURN 

CMATS450 

199 

RETURN  1 

CMATS460 

ENO 

CMATS470 

24 
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